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FOREWORD 

This report is submitted to the NASA Langley Research Center in 
partial fulfillment of Master Agreement Contract Number NAS 1-10635-22. 

Fart of this contract involves the revision of an existing digital program 
to analyze the stability of models mounted on a two-cable mount system used in 
the LRC l6’ transonic dynamics tunnel. The program revisions, discussed in 
this report, will allow for analysis of an active feedback control system 
to he used for controlling the free-flying models. This report is considered 
a supplement to CR-132313 and not a replacement for it. 

Mr. R. Herr of the NASA Langley Research Center is the technical 
monitor. Mr. Frederick Berger of the Grumman Aerospace Corporation is the 
Master Agreement program manager, and Mr. Paul Barbero is the project 
engineer. 
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Command voltage from feedback loop volts 
Externally applied input voltage />✓ volts 
Total voltage to torque mouor volts 
Friction in active cable system /\^ in. Ibs/rps 
Amperes in motor a/ amps 

4 

Inertia of active cable system inches 

Motor torque constant /v/ in. lbs/amp 

Motor velocity constant r>J volts/rps 

Model pitch rate feedback gain a/ volts/rps 

Pitch motor rate (tachometer) feedback gain /v volts/rps 

Motor position feedback gain volts/rad 

Model yaw rate feedback gain volts/rps 

Yaw motor rate feedback gain /V volts/rps 

Motor position feedback gain /v volts/rad 

Motor armature inductance r\* henry 

Rolling moment ft . lb . 

Pitching moment /v Ft. lb. 

Yawing moment ft. lb. 

Output torque from motor /v in. lb. 

Load torque on motor in. lb. 

Motor armature resistance ohms 

Torque motor pulley radius in. 

Laplace operator 

Cable tension change lbs. 

One half the total cable tension change due to active cable 
system ) /v/ lbs. 

Front cable tension change due to fixed length contraint /v^lbs. 
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one half the cable tension change due to feedback = § T />✓ lbs. 
Externally applied tension change lbs. 

Tension change on one side of torque motor #«v/ lbs. 

Axial force exerted on model lbs . 

Side force exerted on model *>✓ lbs. 

Vertical force exerted on model /v^lbs. 

Model translational displacement r\y ft. 

Model angular displacement in pitch, yaw, and roll resp. rad. 
Late rial wind gust /\/ rad. 

Vertical wind gust rad. 

Aileron deflections rad. 

Elevator deflection />^rad. 

Rudder deflection/^ rad. 

Vertical plane torque motor pulley angular displacements rad. 
Lateral plane torque motor pulley angular displacement v rad. 
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I. INTRODUCTION 


In accordance with the requirements set forth under NASA Vaster Agree- 
ment NAS 1- 10635, Development and Implementation of Space Shuttle Structural 
Dynamics Modeling Technology - Task Order Number 22, the following report is 
submitted. 

Contained in this report is a discussion of the updates to the digital 
computer program originally written under Task Order Number 9 and described 
in NASA-CR- 132313. The original program modeled the dynamic characteristics 
of aeroelastically-scaled models "flown" on the two-cable mount system in 
the Langley Research Center 16' Transonic Dynamics Tunnel. The updated 
digital program contains the original equations plus the necessary additional 
equations to model an active feedback system presently being developed. 

The capability of analyzing a proposed new snubber system is also included. 
Program options and output have been expanded to include ccr lete transfer 
function characteristics (numerator and denominator), frequency response 
data, wind-off and free airframe (w/o cable effects) characteristics. 

The discussions in this report will cover only the changes made to the 
original program. It is assumed that CR- 132313 will be used in conjunction 
with this report to obtain full understanding of the program. 
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2.0 ACTIVE FEEDBACK C0?iTR0L SYSTEM LOGIC 


The purpose of the active feedback control system is to artifically aug- 
ment the stability of the cable mounted model by modulating the cable tension. 
There are two cables used to suspend the model in the tunnel. The tensions 
of these cables are controlled independently by two torque motors. Generally 
one cable lies in the vertical plane and the other in the horizontal plane. 

The vertically mounted cable is used to control the longitudinal dynamics of 
the system. The horizontally mounted cable is use I to control the lateral- 
directional dynamics. 

The cables are assumed to be attached to hard points on the model rather 
than to the tunnel v.all as it was in the original program. This is necessary 
to effectively transform the tension change in the cable imparted by the torque 
motor to stabilizing forces and moments on the model. The differences between 
this system and the original inactive cable system and the ability of the present 
program to analyze both setups are discussed in detail in Appendix A. 

Figure 1 presents the sign convention used in the derivation of the 
active cable feedback logic. This figure is generalized to account for both 
vertical front and rear cables as well as horizontal front and rear cables. 

0 a and are torque motor pulley angular displacements in the vertical 
and horizontal planes respectively. Note that the sense of rotation is un- 
altered whether the cable is located in the front or rear. Positive motor 
xotation corresponds to an increase in cable tension on the sides noted in 
the figure by "+ i" 1 ". Positive AT is an increase in cable tension and nega- 
tive aT is a decrease in cable tension. Positive pulley displacements 
results in a positive rotational moment imparted by the cable onto the model. 

The letters "M" and "N" show the direction of the moments induced by the posi- 
tive motor rotation. 
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Figures 2 and 3 show block diagrams of the cable mount system with feed- 
back loops for the longitudinal and the lateral- directional modes respectively. 
These two figures are similar and the discussion of figure 2 applies equally 
to figure 3. 

In figure 2, the block in the forward loop represents the basic inactive 
cable mount system discussed in reference 1. A change in cable tension, aT^, 
will result in a model motion defined by variables x, z, and 8. 

The multi-feedback loops shown represent the active feedback logic, 

motor dynamics and system friction. The feedback loop containing the gains 

K , K* , and K are the active elements controlling the torque motor. They 
^ ®m 

are respectively, the model pitch rate gyro gain, the motor rate or tachometer 
gain, and the motor pulley position gain. The signals emanating from these 
elements are summed to give a voltage E . This voltage is combined with any 
externally applied test voltage, F^, to give a total voltage used to drive 
the torque motor. 

The block containing the notation, "& m = f (x, z, e)”, represents the geo- 
metric relation between the model motion and the pulley motion. This is de- 
rived by determining the movement of the cable, &1, as a function of the model 
motion. The "a 1" is the length of cable passing over the pulley. This value 
is divided by the pulley radius to determine the angular displacement of the 
pulley, 0 m< 

rt v it 

x 

The term, ^ — sL - , contained in various blocks represents the torque motor 
a a 

characteristics. K_ is the motor torque constant, R and L are the motor 

T a a 

resistance and inductance respectively, and s is the Laplace operator. A 
detailed derivation of the motor dynamics is presented in Appendix B. 
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The output torque from the motor is reduced by the back EMF of the motor 
as well as by the motor inertia and system friction. This is reflected in the 
remaining two feedback loops. The K term represents the back EMF. The J 

V M 

and G terms are the system inertia and friction. 

The friction gain, G, is proportional to the pulley rotational rate. 
Reference 2 shows that for perturbation analysis, the coulomb friction can 
be replaced by a term proportional to the rotational rate. 

The net output torque is divided by the pulley radius, r^, to determine 
the total tension change in the cable. If the cable mass is assumed neglig- 
ible, the total tension can be replaced by a aT. The magnitude of &T is half 
the total cable tension. The &T is a positive tension on one side of the pulley 
and a negative tension on the other side. This accounts for the factor of two 
in the block containing 2r^. A derivation of this concept is shown in Appen- 
dix B. 

The block diagram is written in the conventional manner in which the 
cable tension feedback, AT^, is subtracted from the input aT^. The signs 
are accordingly adjusted. The loop, however, remains consistent with toe 
sign convention of figure 1. 

In figure 3, the block diagram differs only in the equations which the 

block in the forward loop represents. Here, tbe block represents the lateral- 

directional perturbation equations of motion. Y, f, 0 are the perturbation 

variables. The feedback gains K^, K.^ and K are the model yaw rate gyro 

m *m 

gain, the horizontal cable torque motor tachometer gain, and the corresponding 
pulley displacement gain respectively. 

The logic in the two block diagrams are modelled in the program using 
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an expanded polynomial matrix representation. These matrices are shown in 
figure 4 and 5. They correspond to expanded versions of the basic matrices 
shown in figures 6.3 and 7.2 of reference 1. The following discussion of 
figure 4 applies equally to figure 5. 

In the longitudinal mode, the basic cable mount system without feedback 
is represented by the 4x4 matrix in the upper left-hand corner of figure 4. 

The additional cable tension modulation due to the active feedback logic, 
including motor and pulley dynamics, is represented by the added &T c terms in 
equations 1 through 3. The coefficients of aT c are derived from equations 
5«4-3«3 and 5.4-8 cf reference 1. 

The motor dynamics are defined by equation 5* Equation 6 defines the 
geometric relation between pulley displacement and model motion. Equation 7 
defines the control law. Equations 9 and 10 represent the summation junctures 
in the block diagram and equation 8 is an auxiliary equation relating pulley 
rate to its displacement. 

In figure 5, the basic system is rep: »sented by the 3x3 matrix in the 
upper left-hand corner. The extension of this basic model to include active 
feedback is via the AT fi terms in equations 1 through 3. The remaining equations 
are similar to those of figure 4. The only difference being that these equa- 
tions represent the lateral-directional mode.. 

The equations of figures 4 and 5 are implemented in subroutines LONG and 
LAI respectively. Figures 6 and 7 show the flow charts for these subroutines. 

The expanded matrices are activated in the program by KODE (13). When 
this code is greater than zero, the program will read in additional data to 
define the active feedback parameters. These parameters are tabulated in 
Section 5.0. 
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Open and closed loop characteristic roots as well as numerator roots can 
be derived from these matrices. The procedure for obtaining this informal ' *'*' 
from the program ,.s discussed in Section h.O. 
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3.0 FLYING CABIS SNUBBER SYSTU4 

| — — - 

| The snubber system used the basic flying cables with a large increase 

f 

j in rear cable tension providing the "snubbing" action. When the snubber 

t 

’ ! system is activated the following sequence of events occurs: 

2 

| l) the rear cable tension is increased to seme predetermined level. 

j 2) Next, disc brakes are applied directly to each of the f ur Hying 

cables 

' Following the snubbing sequence the model resrenus essentially to four 

i 

pre-stressed dead-ended cables. Consequently the math model for the snubbed 
dynamics consists of the conventional aerodynamic effects plus cable influence 

| coefficients derived by assuming each cable to be a pre-stressed spring. The 

direction cosines, cable lengths, and cable tie-down geometry used for the 
conventional stability analysis are appropriate for the snubbed analysis, 
since the same cables are being used for snubbing. A schematic of the sn’ 
model is shown in Figure 8. The effects of the snubbed flying cables or. both 
longitudinal and lateral/directional stability are modeled similar to the rear 
flying cables in the conventional analysis (see Sections 5.0 and 6.0 in refer- 
ence l). The force and moment contributions for each cable are calculf . . 
separately, summed and placed in the characteristic polynomial matrix. * .coe 
calculations are made within subroutines LONG and LAT. 

3.1 LONGITUDINAL AXIS 

The general derivation for the longitudinal cable influence coefficients 
is presented in reference 1 and will not be repeated here. A 7 x 7 matrix 
with the form shown in Figure 8A is used to model each cable. 
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The matrix Is reduced to a 3 x 3 in x, z, e and put in the FXS 
array. The longitudinal stability is a 3 x 3 matrix in x, z, and 0. The 
matrix no longer contains as an independent variable because the front 
cable constraint equation (no change in total front cable length) is not re- 
quired in the snubbed condition. Ec - 1 cable acts as an independent spring 
restraint. 

3.2 IATERAL-DIRE CT IONA.L AXIS 

The general derivation for the lateral-directional cable influence co- 
efficients is also presented in reference 1. The equations describing each 
cable are set in a 8 x 8 matrix with the form shown in Figure 8B. 

The matrix is reduced to a 3 x 3 matrix in Y, , and <f>, and stored in 
the FXS array. 

The lateral- directional stability matrix is a 3 x 3 matrix, structured 
exactly the same as the conventional stability matrix. 
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4.0 ADDITIONAL PROGRAM OPTION 


Four additional options have been added to the Cable Mount Analysis Program. 
These are options to compute the numerators and denominators of the transfer 
function, the detenninaticn of the frequency response of any transfer function, 
the computation of vind-off characteristics and the computation of the wind 
tunnel model without cable effects (cableless model). The procedure for exe- 
cuting these options are discussed in this section. 

4.1 TRANSFER RJNCTICS OPTIONS 

This option allows the computation of numerators and denominators. A 
detailed discussion of the procedure is presented in Section 4.1.1 and 4.1.2 
for the longitudinal ard lateral directional modes respectively. 

4.1.1 LONGITUDINAL AXIS 

The matrix shown in figure 4 is the complete longitudinal matrix. The 
size of the matrix to be evaluated determines the system that is being eval- 
uated. KQDE (8) is the parameter which sets the size of the matrix from which 
the roots are to be extracted. KGDE (8) is set to either 4, 9, or 10. When 
KCDE (8) is equal to 4, the system being evaluated is the basic inactive cable 
mount system as defined in reference 1. When KCDE (8) is equal to 9» the open- 
loop roots of the active feedback system are extracted; and when KCDE (8) is 
equal to 10, the closed-loop roots for the active feedback system are extracted. 

KOOE (14) and KCDE ( 15) are the parameters which indicate to the program 
whether numerator or denominator roots are to be extracted. If KQDE (l4) is 
zero, the characteristic or denominator roots are extracted. If KCDE (14) is 
non-zero, the program assumes that numerator roots are to be extracted. The 
program will then replace the column defined by KCXE (15) by the column defined 
by KQDE (14) i r the matrix. 


9 



, 4pKv-T»*-cr^ 


: ! ' I I 

The basic no feedback system transfer function can be evaluated by setting 
KGDE (8) to 4 and KQDE (14) to 10. Setting KGDE (15) from 1 to 4 will deter* 
mine the numerator roots of the z/aT c> AT^/a^ and */a t c transfer func- 

tions. Setting KGDE (l4) to zero will determine the denominator roots of 
these transfer functions. Thus the complete transfer function can be deter- 
mined. Transfer function response to either elevator or gust input is possible 
by setting KODE (14) to 15 or 16 respectively. 

The open loop zeros can be determined by setting KGDE (8) to 9 and KODE 
(14) to 10. The variation of KGDE (15) from 1 through 9 will determine the 
zeros for various output parameters. The open loop poles are determined by 
setting KODE (l4) to 0. 

In the closed loop numerator computation the forcing function can be 
either a test voltage input, E^, an externally applied tension, ATp a model 
elevator input, fig* or a vertical gust inprt, <y&. These inputs correspond 
to a KODE (14) of 11, 12, 15 or 16. 

For example, if the closed loop numerator roots of the transfer function, 
9/E mo , are desired, KODE (l4) is set to 11 and KGDE (15) is set to 2. After 
the substitution of columns, the roots are extracted from the matrix whose 
size is set to 10 by KCDE (8). By varying KQDE (15) from 1 to 10, numerator 
roots of various output parameters can be obtained. 

Since the model pitch rate, 0, is an important parameter and this does not 
appear explicitly in the matrix, the program is set up to artificially generate 
the frequency response for this mode. This option is activated by setting 
KCDE (15) to 13. 

The transfer function of the cableless model, defined In Section 4.3, 
can also be determined. The numerators z/ 6g , 9/g e and */g e » are determined 
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by setting KDDE (8) = 3, KDDE (l4) » l4, and KODE (15) from 1 through 3. The 
denominator roots are determined by setting KDDE (l4) to zero. 

4.1.2 lateral Directional Axis 

KODE ( 9 ) is the parameter used in the lateral directional mode to set the 
size of the matrix and define the system being evaluated. KODE ( 9 ) set to 3 
defines the basic cable system without feedback. KODE ( 9 ) set to 9 defines 
the open loop roots of the active feedback system and KODE ( 9 ) set to 10 defines 
the closed loop roots of the active feedback system. 

The numerator option is determined by KODE (l6). KDDE (16) set equal to 
zero results in the extraction of characteristic roots. KODE (l6) non-zero 
results in the replacement of the column defined by KODE (17) with the column 
defined by KODE (l6) in the matrix of figure 5. 

Specifically, the numerator characteristics of the basic cable system with- 
out feedback are obtained by setting KODE (9) to 3 and KODE (16) to either 10 , 14, 
15, or 16 depending on the type of forcing function that is desires. These are 

respectively a cable tension change, iff , a rudder input, 6 , an aileron input, 

C IT 

6 , or a side gust, B . The dependent variable is determined by KODE (17) which 

a g 

may vary from 1 through 3. The denominator roots are obtained by setting KDDE (16) 
to zero. 

The open loop zeros of the block diagram shown in figure 5 is determined 

by setting KODE (9) to 9, KODE (16) to 10 and KODE (17) from 1 through 9. The 

denominator or open loop poles are determined by etting KODE (l6) to zero. 

The closed loop numerator for the active cable system is determined by 

setting KODE (9) to 10. The forcing function is defined by KODE (l6). This 

code can be 11, 12, l4, 15, or 16. They correspond to a test voltage, E^, test 

tension, A?., rudder input, a , aileron input, 6 . or a side wind gust, Ag. 

1 r & 
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4.2 Frequency Response Option 

The frequency response option will c depute the complete transfer function 
according to Section 4.1; and then evaluates for the computed transfer function 
over a range of frequencies, the amplitude ratio in actual value, db's, and the 
phase a n gle. The option will compute up to 60 points over a 3 decade bandwidth 
with a maximum of 20 joints per decade. 

This option will also compute the steady state value of the transfer func- 
tion to a step input of the forcing function if this value exists. 

The frequency response option is activated by setting KQDE (3) to +2. 

Since a complete transfer function must be generated prior to developing the 
frequency response data, KODE (14) and KQDE (15) or KGDE (16) and KODE (17) 
must be set to non zero values to define the desired transfer function. TVo 
additional parameters, KODE (l8) and KODE (19), must be set to define the fre- 
quency range and number of points to be computed. KCDE (18) sev the order of 
the lowest frequency to be computed, e.g. , KODE (18) se> t > -1 corresponds to 
.1 ips and a "+l" corresponds to 10 rps. KQDE (19) set xo 60 means sixty points 
are computed for the three decade bandwidth of the frequency response. 

The frequency response option is initiated in subroutines LONG and LAT for 
the longitudinal and lateral directional modes respectively. The program, on 
sensing KODE (3) equal to 2, will effectively cycle through subroutines Lore 
or LAT twice, first to compute the numerator and then again to compute the de- 
nominator roots. 

The information is then passed to subroutine FREQ where the frequency re- 
sponse data is generated with the aid of subroutine ANP. 
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4.3 Wing- Off Characteristics 

This option is used to compute the system response without the aerodynamic 
effects. The dynamic characteristics reflect the system feedback, and equiva- 
lent spring and damping effects. 

In this option, the normal trim operation technique is circumvented. 
Instead, the vehicle attitude is set to zero and the forward cable tension 
is defined to balance out the rear cable tension. 

The program will execute this option if the velocity (AERO (49)) and the 
MACH number (AERO (48)) are set to zero. 

4.4 Cableless Model Characteristics 

This option allows the computation of the airframe characteristic roots 
without the cable effects. The program initially trims the vehicle assuming 
the cables are attached to the vehicle. After defining the trim attitude, the 
cable influence coefficients are set to zero. 

This option defines the characteristics of a model in the wind tunnel. 

The equ r .ions are different frcm the conventional airframe analysis equations. 
The differences are in the relation of angle of attack to model pitch attitude 
(see equation 5.3-2 of ref l) and the missing thrust terms. 

Prior co extracting roots from the matrix in the longitudinal mode, the 
X co.lu .a is shifted to the left one column eliminating the AT ? column in figure 
<i Thus the cableless model option requires a KGDE (8) of 3 reflecting a 3 * 3 
matrix size. 

The letaral directional mode does not require this extra step of column 
manipulation and KGDE ( 9 ) should be set to 3» 

The program will execute this option only if KGDE (13) is set to -1. 
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5.0 lapur DA!EA 

The input format and the description of the elements in the input 
arrays will be described in this section. This discussion is meant to 
supersede the description contained ir Section 11.0 of Reference 1. 

The format for the input data is most easily explained by reproducing 
the "READ” statements as they appear in the program. 

READ (IR, 150) (TITLE (i), I = 1, 20) (l) 

150 FORMAT (2QA4) 

READ (IR, 200) (RODE (i), 1=1, 24) (2) 

200 FORMAT (2413) 

Then either 3a or 3b: the value of KODE (7) will determine which 


"READ" statement will be used. 

READ (IR,100) (AERO (i), I = 1,36) (3a) 

100 FORMAT (6E12.5) 

CALL TABIN1 (l, 36) (See Appendix A, Ref. l) (3b) 

Following either (3a) or (3b) the sequence of "READ" statements 
continues: 

READ (IR, 100) (AERO (i), I = 44,59) (4) 

HEAD (IR, 100) (AERO (i), I = 66, 130) (5) 


How if KODE (13) is greater than zero the following "READ" 
statement is encountered. If KDDE (13) is less than or equal to zero this 
"READ" statement is skipped. 

READ (IR, 100) (AERO (i), I - 131, l60) (6) 

How if KODE (12) equals one, the following table read statement is 
encountered. If KOBE (12) equals zero this statement is skipped. 

CALL TABIN (l, 2) (See Appendix A, Ref l) (7) 

This completes the initial sequence of input data. After completion 
of the first run the following statements initialize another run. 




READ (IR, 150) (Tni£ (I), I - 1, 20) 

READ (IR, 200) (KODE (l), I - 1, 24) 

READ (IR, 350) K,. VALUE 

K * element In "AERO" array to be changed 

VALUE « nev value of the element 

If I = 1 this "READ" statement is repeated 

If I ■ 0 the program begins computation 

All succeeding cases follow the same input format starting with 
statement (8). 

A general description of the input arrays follows: 


DESCRIPTION 


Alpha-numeric array containing title 


for each run. 


Array specifying program options to 


be exercised. 


Array containing all the input data 
pertaining to the model, the mount 
system, tunnel conditions, etc. 


A description of each element in the "KODE" and "AERO" arrays follows. 


SAME 


VALUE 


DESCRIPTION 


RODE (l) 
RODE (2) 


RODE (3) 

RCDE (4) 
RODE (5) 

RCDE (6) 


RCDE (7) 


-1 

0 

+1 

0 

+1 

+2 

0 

+1 

+1 

+2 

+3 

+4 

0 

+1 


Run number. 

Calculate longitudinal stability. 
Calculate lateral/directional 
stability. 

Calculate both longitudinal and lat- 
eral/directional stability. 

Ho root locus or frequency response. 

' Do root locus. 

Do frequency response. 

Element in "AERO" array to be varied 
for root locus. 

Basic printout. 

Basic printout plus various test para- 
meters. 

Front cable vertical- rear cable hori- 
zontal. 

Front cable horizontal- rear cable 
vertical. 

Front and rear cable vertical. 

Front and rear cable horizontal 
Aero data to be input at specific 
mach number. 

Aero data to be input in the form of 
tables. 
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NAME VALUE 

KCDE (8) +3 

+4 

+5 


+9 


+10 


KQDE (9) +3 


+4 


+5 


+9 


+10 


s 


DESCRIPTION 

Longitudinal matrix - Cable less Model 
(see Section 4.3) 

Longitudinal matrix - no stability 
augmentation. 

Longitudinal matrix - Internal stabil- 
ity augmentation (see Section 9.0, 
Reference 1.) 

Longitudinal matrix - Open loop response 
of Active Cable Mount System (see Section 
2.0, 4.1.1) 

Longit. iinal matrix - Close loop res- 
ponse of Active Cable Mount System (see 
Section 2.0, 4.1.1) 

Luteral/diiectional matrix - no stability 
au&nentation or cableless model. 

Lateral /directional matrix - internal yaw 
stability augmentation, (see Section 9.0, . 
Reference 1.) 

Lateral/directional matrix - internal roll 
and yaw stability augmentation, (see 
Section 9.0, Reference 1. 
Lateral/directional matrix - open loop 
response of Active Cable Mount System 
(see Section 2C , 4.1.2) 
Lateral/directional matrix - Close loop 
response of Active Cable Mount System 
(See Section 2.0 4.1.2) 
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NAME 

VALUE 

DESCRIPTION 

KGDE (10) 

0 

No snubbers. 


+1 

Analyze conventional snubbers in un- 
snubbed condition - see Section 8.1, 
Reference 1. 


+2 

Analyze conventional snubbers in snubbed 
condition - See Section 8.2, Reference 1. 


+3 

Analyze flying cable snubber system. 

KCDE (n) 

0 

No anti-lift cable. 


+1 

Anti-lift cable in. 

KGDE (12) 

0 

No unsnubbed snubber data input. 


+1 

Un snubbed snubber data will be read in. 

KCDE (13) 

-1 

Cableless Airframe Characteristics. 
(See Section 4.3) 


0 

No active cable stability augmentation. 


+1 

Active cable stability augmentation in. 
(See Section 2.0) 

KCDE (14) 

0 

Longitudinal system - compute denominator 
characteristics only. 


+10 

Longitudinal system - numerator and/or 
frequency characteristics of inactive 
cable mount system for cable tension in- 
put, ATc. (See Section 4.1.1) 


+10 

Longitudinal System - numerator and/or 


frequency character! sties of active cable 
mount system open loop for cable tension 
input, aTc. (See Section 4.1.1) 
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SAME 


VALUE 


DESCRIPTION 


KODE (15) 


KODE (16) 



+11 


+12 


+15 


+16 


0 


Longitudinal System - numerator and/or 

frequency characteristics of active cable 

mount system close loop response for 

test voltage input E . (See Section 

mo 

4.1.1) 

Longitudinal System - numerator and/or 
frequency characteristics of active 
cable mount system close loop response 
for externally applied tension, aT^. 

(See Section 4.1.1) 

Longitudinal system - numerator and/or 
frequency characteristics for pitch con- 
trol response ( Se) 

Longitudinal system - numerator and/or 
frequency characteristics for past response 
(ar G ). 

Longitudinal system - column number of 
output variable for which numerator and/ 
or frequency data is desired. KODE (15) 
is set equal to 13 for m-xlel pitch rate 
response. This value must be equal or less 
than KCDE (8). (See Section 4.1.1) 
Lateral/directional system - compute de- 
nominator characteristics only 
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NAME 


VALUE 


DESCRIPTION 


+10 


+10 


+11 


+12 


+14 


+15 


Lateral/directional system - numerator 

and/or frequency characteristics of 

inactive cable mount system for tension 

% 

input aTc. (See Section 4.1.2). 
Lateral/directional system - numerator 
and/or frequency characteristics of 
active cable mount system open loop for 
tension input, ATc. (See Section 4.1.2) 
Lateral/directional system - numerator 
and/or frequency characteristics of 
active cable mount system close loop for 
test voltage input E . (See Section 
4.1.2) 

Lateral/directional system - numerator 
and/or frequency characteristics of active 
cable mount system close loop response 
for externally applied tension, ( aT)/ 

(Se? Section 4.1.2) 

Lateral/directional system - numerator 
and/or frequency characteristics for yaw 
control response (6r). 

Lateral/directional system - numerator 
and or frequency characteristics for 
roll control response (&a)» 
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I 

I 

1 

, NAME VALUE 


+16 


m 

I 

KQDE (17) 


I 

i 


DESCRIPTION 


Lateral /directional system - numerator 
and/or frequency characteristics for 
gust response (b q ). 

Lateral/directional system - column 
number of independent variable for which 
numerator and/or f re' - ’ cy data is de- 
sired. 


NODE (18) 


f 


KQDE (19) 


Order of lowest frequency ( RPS) for 
frequency response data. 

Number of data points in frequency 
response (Max of 60.) 
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NAME 

UNITS 

LABEL 

DESCRIPTION 


AERO (1) 

N.D. 

CDU 

ay^/v 

► 

C D 
. u. 


AERO (2) 

N.D. 

CUT 


C, 

N 


AERO (3) 

N.D. 

CMU 

*V^A 0 ) 

Fm 
L u. 


AERO (4) 

l/rad 

CDA 

acyaU) 

Fd 

L Of: 


AERO (5) 

1 /rad 

CLA 

aCj/‘d( a) 

Fl 


AFRO ( 6 ) 

l/rad 

CMA 

9C m /3(«) 

M 

L Qf. 


"AERO (7) 

N.D. 

CDQ 

ac D /a(q?/ 2 v Q ) 

K 


AERO ( 8 ) 

N.D. 

CIA 

9 C L / 9 (qC/ 2 V o ) 

PL 

V q i 


•AERO (9) 

N.D. 

CMQ 

9C ffl /3(qC/2V o ) 

K 


AERO (10) 

N.D. 

CDO 

Drag coefficient at a ■ 0 

Pd 

L 0 


AERO (11) 

N.D. 

CLO 

Lift coefficient at a * 0 

|L , ■ 

lo. 


AERO (12) 

N.D. 

CMO 

Pitching moment at or = 0 

ft 

O 

O 


AERO (’. 3 ) 

l/rad 

CDDE 

aCj/a( R e ) 

f», 

] 

AERO 14) 

l/rad 

CLDE 

S0L/9(A e ) 

k e 

] 

AERO (15) 

I '"ad 

CMDE 


k 6 e 

L“a 

1 

J 

AERO (16) 

N.D. 

CD AD 

^c„/a(S’/ 2 v o ) 


] 

AERO (17) 

NJ>. 

CLAD 

aC L /9(aC/2Vj 

M 


AERO (l 8 ) 

N.D. 

CI&D 

TfiJlisZ/V a ) 

k 

rm* 

L 


AERO (19) 

l/rad 

CYB 

*C y /a( 8 ) 

[ y e. 


AERO (20) 

l/rad 

CLB 

BC # /9(B) 


1 

AERO (21) 

l/rad 

CNB 

ac n /a(«) 



AERO (22) 

N.D. 

CYP 

?C y /9(pb/2V o ) 

s \ 


AERO (23) 

N.D. 

CLP 

aC^pb^) 



AERO (24) 

N.D. 

CNP 

ac n /9(ph/2V 0 ) 

C 

n 

- PJ 


AERO (25) 

N.D. 

CYR 

dC y /3(rb/2V o ) 

C 

e y " 


AERO (26) 

N.D. 

CLR 

acyaCA/ay 

b 
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T ' - 


m/E 

UNITS 

label 

DESCRIPTION 



AERO (27) 

N.D. 

CNR 

ac n /a(rb/2v o ) 



AEHD (28) 

l/rad 

CYDR 

aCy/a(5 r ) 

[ Cy « . 


AERO (29) 

l/rad 

CLDR 

ac^gj.) 

V] 


AERO (30) 

l/rad 

CHDR 

ac n /a(* r ) 

•c r * 
n. 


AERO ^?l) 

l/rad 

cmA 

ac^(6 a ) 

‘c 6rJ 

y 5 


AERO (32) 

l/rad 

CLDA 

ac £ /a(6 a ) 

hi 

X 6 

i c a i 


AEHD (33) 

l/rad 

CHDA 

ac n /a(6 a ) 


AERO (34) 

l/rad 

CYDS 

aCy/a(6 s ) 

fc aJ 
. y 6 


AEHD (35) 

l/rad 

CLDS 

ac £ /a(6 s ) 

v 


AEHD (36) 

l/rad 

CNDS 

a c n / a(5 s ) 

C *1 


AERO (44) 

in 

XREF* 

~ ~s - 

Distance from aerodynamic ref. center 
to the equation ref. center along the 
X body axis 

AEHD (45) 

in 

ZHEF 

Distance from aerodynamic ref. center 
to the equation ref. center along the 
Z body axis 

AEHD (46) 

in 

XCG 

Distance from model mass & inertia 
ref. center to the equation ref. 
center along the X body axis 

AERO (47) 

in 

ZCG 

Distance from model mass & inertia 
ref. center to the equation ref. 
center along the Z body axis 

AERO (48) 


AMACH 

Tunnel mach number 



AERO (49) 

ft/sec 

VO 

Tunnel velocity 



AERO (50) 

slugs 

AM 

Model mass 



AERO (51) 

slug/ft^ 

HHO 

Tunnel density 
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NAME 

UNITS 

LABEL 

DESCRIPT.ON 

AERO (52) 

lbs 

WT 

Msdel weight 

AERO (53) 

ft 

B 

Model reference span 

AERO (54) 

ft 

CBAR 

Model reference chord 

AERO (55) 

ft 2 

SW 

Model reference wing area 

AERO (56) 

slug-ft 2 

XIXZ 

Model cross product of inertia 

•AERO (57) 

slug-ft 2 

mx 

Model roll inertia (I ), body 
axis at C.G. 

AERO (58) 

slug- ft 2 

YIYY 

Model pitch inertia (I ), body 

yy 

axis at C.G. 

AERO (59) 

slug- ft 2 

ZI7Z 

Model yaw inertia (I ), body 
axis at C.G. 

AERO ( 66 ) 

in 

WLUF 

Water line-upper front cable 
tie-down point (fr. vert.) 

AERO (67) 

in 

WLLT 

Water line-lower front cable 
tie-down point; (fr . vert. ) 

AERO ( 68 ) 

in 

WLUR 

Water line-upper rear cable 
tie-down point ( rr. vert. ) 

AERO ( 69 ) 

in 

WLLR 

Water line-lower rear cable 
tie-down point (rr. vert.) 

AERO (70) 

in 

WLHF 

Water line-horizontal front cable 
tie-down point ( fr. hor. ) 

AERO (71) 

in 

WLHR 

Water line-horizontal rear cable 
tie-down point ( rr. hor, ) 

AERO (72) 

in 

STAF 

Station- front cable tie-down 
point ( fr. vert, or hor.) 

AEHD (73) 

in 

STAR 

Station- rear cable tie-down 
point (rr. vert, or hor.) 

AERO (74) 

in 

BLHF 

Butt line-horizontal front cable 
tie-down point (fr. hor.) 


- !i 


f 


! 


1 


1 


! 


name; 

UNITS 

LABEL 

DESCRIPTION 

AERO (75) 

in 

BLHR 

Butt line-horizontal rear cable 
tie-down point (rr. hor. ) 

AERO (76) 

in 

WLCR 

Water line-equation reference point 

AERO (77) 

in 

STACR 

Station - equation reference point 

AERO ( 78 ) 

in 

BLCR 

Butt line-equation reference point 

AERO (79) 

in 

EF*+ 

Distance along X body axis from 
ref. center to vertical front 

• 



pulley 

-AERO (80) 

in 

ER 

Distance along X body axis from 
ref. center to vertical rear 
pulley 

AERO (81) 

in 

AF 

Distance along X body axis from 
ref. center to horizontal front 
pulley 

AERO (82) 

in 

AR 

Distance along X body axis from 
ref. center to horizontal rear 
pulley 

AERO (83) 

in 

HUCF 

Distance along Z body axis from 
ref. center to upper front pulley 

«ERO (84) 

in 

HLCF 

Distance along Z body axis from 
ref. center to lower front pulley 

AERO (85) 

in 

HUCR 

Distance along Z body axis from 
ref. center to upper rear pulley 

AERO (86) 

in 

HLCR 

Distance along Z body axis from 
ref. center to lower rear pulley 

AERO (87) 

in 

DCF 

Distance along Y body axis from 
ref. "enter to horizontal front 
pulley 

AERO (88) 

in 

DCR 

Distance along Y body axis from 
ref. center to horizontal rear 
pulley 
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UNITS 

LABEL 

DESCRIPTION 

AERO (89) 


blank 


AERO (90) 

in 

RVF 

Radius of vertical front pulle; 

AERO (91) 

in 

RHF 

Radius of horizontal front pulley 

AERO (92) 

in 

RVR 

Radius of vertical rear pulley 

AERO (93) 

in 

RER 

Padius of horizontal rear pulley 

AERO (94) 

lbs 

TRO 

Rear cable tension 

AERO (95) 

lbs/in 

AKR 

Rear cable spring constant 

AERO ( 96 ) 

ft lbs/rad 

OOU 

Pulley Coulomb friction (a ) 

c 

AERO (97) 

in 

STLTT 

Station - lift cable tie-down 
point 

AERO ( 98 ) 

in 

WLLTT 

Water line - lift cable tie-down 
point 

AERO ( 99 ) 

lbs 

TLFTO 

Lift cable tension 

AERO (100) 

lbs/in 

AKLFT 

Lift cable spring constant 

AERO (101) 


blank 


AERO (102) 

in 

ALTX* 

Distance along X body axis from 
lift cable attachment point to 
the equation reference center 

AERO (103) 

in 

ALTZ 

Distance along Z body axis from 
lift cable attachment point to the 
equation reference center 

(l) AERO (104) 

ft lbs/rad/sec 

CMP 

Pulley rolling 1 .fiction coefficient 

AERO (105) 

in 

SNUX*** 

Distance along X body axis frcm 
model upper attachment point to 
the equation reference center 

AERO (106) 

in 

SNUf 

Distance along Y body axis from 
model upper snubber attachment point 
to the equation reference center 

AERO (10?) 

in 

SHUZ 

Distance along Z body axis from 


model upper snubber attachment 
point to the equation reference 
center 


(l) AERO (104) through AERO (122) refer to conventional snubbers except where noted. 
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HAJC UNITS LABEL DESCRIPTION 


AERO (106) 

in 

SHLX 

Distance along X body axis from 
■odel lower snubber attachment 
point to the equation reference 
center 

AERO (109) 

in 

SNTY 

Distance along Y body axis from 
model Inver snubber attachment 
point t^ the equation r' * _r:nce 

center 

AERO ( 110 ) 

in 

SHLZ 

Distance along Z body axis fro® 
model lover snubber attachment 
point to the equation reference 
center 

AERO (m) 

in 

SHUST 

Station - upper snubber tie-down 
point 

AERO ( 112) 

in 

SHUWL 

Water line - upper snubber tie-down 
point 

AERO (L13) 

in 

SNUBL 

Butt line - upper snubber tie- 
down point 

AERO (uU) 

in 

SHLST 

Station - lower snubber tie-down 
point 

AERO (115) 

in 

SNLWL 

Water line - lower snubber tie- 
down point 

AERO (n6) 

in 

SNLBL 

Butt line - lower snubber tie- 
dow n point 

AERO (117) 

lbs 

TUSNO 

Upper snubber, snubbed tension 

or flying cable snubber rear cable tension. 

AERO (n8) 

lbs 

TLSNO 

Lower snubber, snubber tension 

AERO (119) 

lbs/in 

AKSNU 

Upper snubber, snubbed spring con- 
stant 

AERO (120) 

lbs/in 

AKSNL 

Lower snubber, snubbed spring 

constant flying cable snubber rear cable spring 

constant. 

AERO (121) 

lbs/in/sec 

ADSNU 

Upper snubber, snubbed damping 

constant or flying cable snubber front cable 

spring constant. 
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me 

WHS 

LABEL 

DESCRIPTION 

AERO (122) 

lbs/in/sec 

ADSXL 

Lower snubber, snubbed damping 
constant. 

AERO (123) 

rad/rad/sec 

AKSY 

Feedback gain- yaw rate to rudder 

t 

AERO (124) 

rad/rad/sec 

AKPHI 

Feedback gain - roll rate to 
aileron. 

AERO (125) 

• 

rad/rad/sec 

AXTHE 

Feedback gain - pitch rate to 
elevator. 

AERO (126) 

blank 



AERO (127) 

sec 

TISY 

Tine constant for lag on yav 
rate feedback. 

AERO (128) 

sec 

T2PHI 

Time constant far lag on roll 
rate feedback. 

AERO (129) 

sec 

T3THE 

Time constant far lag on pitch 
rate feedback. 

AERO (130) 

blank 



AERO (131) 

in- lbs /amp 

AKSBT**** 

Motor torque constant (K^.) 

AERO (132) 

volts/rad/sec 

AKSBV 

Motor velocity constant (K y ) 

AERO (133) 

in-lbs-sec^ 

AJASM 

Motor inertia (j ) 

AERO (134) 

ohms 

RSBA 

Motor araature resistance (R ) 

& 

AERO (135) 

henry 

ELS BA 

Motor araature inductance (L ) 

& 

AERO (136) 

in 

RSBD 

Radius of motor pulley (r d ) 

AERO (137) 

volts/rad/sec 

AKTHD 

Pulley rotation rate feedback 

(«fc > 

8 m 

AERO (138) 

volts/rad 

AKTH 

Pulley rotation displacement 
feedback (i^ ) 

AERO (139) 

in-lbs/rad/sec 

(BMP 

Pulley friction (G) 

AERO (140) 

volts/rad/sec 

AEQ 

Model pitch rate feedback (K^) 



i 
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AERO (145) to AERO (l60) blank 


♦See Figure 9 for pictorial representation of various reference center. 

♦♦See Figure 10 for pictorial representation of pulley geometry. 

♦♦♦See Figure 11 for pictorial representation of conventional snubber cable geometry. 

♦♦♦♦See Figures 2 and 3 for block diagram representations of the active cable control 
logic. (See appendix B for derivation) 
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If the aerodynamic data and/or snubber data are to be read In table 
format, the following discussion applies. 

The first 36 tables contain the aerodynamic derivatives in stability 
axis versus mach number. The order is the same as AERO (l) through AEK< ( 36 ). 

The table input format is shown in Appendix A of Reference 1. This data is 
read in under TABETl. 

The unsnubbed snubber data consists of two tables of input. The first 
table contains cable tension (lbs) versus dynamic pressure (psf) and linear 
distance (in) between model tie-down point and tunnel side vail. The second 
table contains cable angle (rad) versus dynamic pressure (psf) and linear 
distance (in) between model tie-down point and the tunnel side wall. The tensions 
and angles mentioned here are described in detail in Section 8.0 of Reference 1. 
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Appendix A 

A Discussion of the Differences In Cable Attachment Points Between the 
Inactive and Active Cable Mount Systea 

There exists a basic difference In the cable mount system analyzed In the 
original program and the present active cable system. In the original system, 
the front cable is attached to hard points on the tunnel wall. The cable wraps 
around pulleys which are fixed to the model. This cable is assumed to be fixed 
in length. The rear cable is similarly wraiped around pulleys fixed to the model. 
There is a spring which is connected in series with the rear cable which allows 
for play in the system. This system is pictorially represented in figure A-l. 

In the present "active cable system," the front cable is attached to hard 
point on the model. The cable wraps around pulleys fixed to the tunnel. One 
of the pulleys is connected to a torque motor. The rear cable is similarly 
routed around pulleys fixed to the tunnel and tied to hard points on the model. 

The spring on the rear cable is still assumed. This system is pictorially 
represented in fig. A2. 

The present program is eapable of handling both cases. The radius of the 
pulleys fixed to the model must be made very small to reflect the hard attachment 
point in the new system, i.e. Aero (90) thru (93) inclusively must be set to .01. 
The pulley radius mounted to the torque motor is important in the new system and 
is defined by Aero (136). When the program reverts back to the original system, 
Aero (90) and Aero (93) is significant, and Aero (136) is ignored. 

The program is capable of this dual application because of the method utilized 
in the analysis of the cable forces. The front and rear cables, which sure 
respectively continuous cables, are analyzed as four individual branches. Each 
branch represents the cable between the model and the tunnel. These branches 
are numbered in both figures A1 and A2. The force components on the model 
contributed by each branch of cable is a function of three factors, the tension 
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In that branch of cable, the orientation of the cable and the exact point 
of application of the force on the model. The impact of having pulleys 
fixed to the model is simply to alter the point of application. By reducing 
the pulley radius, the point of application is analogous to a fixed point 
on the model. 

The other consideration is friction effects of pulleys. There are two 
different friction definitions. Aero ( 96 ) and Aero ( 104 ) define the friction 
In pulleys for the inactive cable system, whereas Aero ( 139 ) represents friction 
effects of the Active Cable System. 












1 


1 


Derivation of Motor Equations and Cable Tension 


The net output torque from the motor is proportional to the current to 
the motor. The current is related to the voltage and back EMF as shown by 
equation 1. A list of symbol definition is given on page iii. 


*o * *T 


iot ~ ^y s 
Ra + ^a 


For two motors in parallel, the output torque is doubled: 

< “ 2< *o 

The load torque on the motor is due to the total change in cable tension, 
AT tot . and the friction in the system. The couloumb and viscous friction can be 
written as proportional to the pulley rate. (See ref 2.) 


Q L’ 4T TOT r d + G " 5 m (2) 

The net torque, output minus load, will cause the motor to rotate. 

Q -Q, ■ J *0* * J M s 2 e (3) 

o M m M m 

Substituting equations (l) and (2) into equation (3) for and Q respec- 

L 

tively, the total change in cable tension, AT^ can be determined. 


tit 


2 2K T K ' 

V +GS + — 


K v 's“| 2^®. 

+ sL ®m “ R + 
aj a 


^T tot is positive when the cable is in tension. 


-sjM 




Looking at the larger picture shown 
in figure B-l, the total change in cable 
tension ca.: be split into two increments 
6T^ and 6Tg. Writing the equation of 

motion of the cable 


fig B-l 


i 


1 


\ 


T Q - - (T Q + 6Tg) - na 

(5) 

• • • 


J?rr ma » 0 


0 

( 

•o 

« 

h h 

<o 

1 

(6) 

and 5 Tg - -6T 

(7) 


This states that if the mass times acceleration of the cable is small and 
can be neglected, the increase in cable tension on one side of the torque motor 
is just equal to the decrease cable tension on the other side of the torque 
motor. This result is ideally suited for the perturbation an° lysis since the 
program actually considers the continuous cable in figure B-l as two separate 
elements as indicated by the dashed lines. With the change in cable tension 
having equal magnitude along each element, the mechanization is simplified. 



Figure B-2 shows the relation of the 
change in cable tension on one side of the 
torque motor, 6T, to the total chan^- in 
cable tension AT ... Thus 

lvl # 

6T g - oT x « AT Tap (8) 


Substituting results from equation 7 into equation 8 


6T„ 


AT, 


TOT 


(9) 


Replacing A T tot in equation (4) with equation (9), 6Tg is determined. 


The 6Tg corresponds to aT^ in figures 4 and 5 


5T„ 


2r. 


[• 


2 2Kp! 

Jj s + Gs + ip 

a 


Me 

+ sL I y m R + 

a I a 


“tot 

IT 


(10) 


y> 
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A 
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3 
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.( AEF 0 { 36 ) 

. CND 3 ). 

C 3 LC 

: 23 : 

C 

( AFPO ( 44 ) 


XP C = ) 

. ( 4 = 9045 ) . 

Z 5 ?=> 

. ( A =9 0(46 > 

. XCS). 

C 3 LC 

C 24 C 

0 

( AE=~( 47 ) 


7 CO 





C 3 LC 

M _ J ^ 

EQU IV ALENCE 

( a E : 0 (48 

) . 

A A C H 

) » ( A = c r; ( 49 ). VO 

) . ( AE 90 ( 5 C ) • AM) 

C 3 LC 

C 2 * I 


EQUIVALENCE! AE^O (51 
EOUIV 4LENCE( A=PO ( 54 
EQJIV 4LENCE( 42=0 (57 
EOUIV *L C NC:( A5=0 (6* 

1 ( A 0= ? ( 6 3 

EOUIV ALENCE ( a E r D (66 

1 (AE=0 (69 

2 (A SCO (72 

0 (AE=D (75 

4 ( A E 9 O (78 

5 (At- 0 (81 

6 (AEPO (64 

7 ( AECQ ( 57 

8 (Al-QO (90 

.o _ (AEPO(aO) 

A 1 AEP 0 ( 06 ) 

B ( AF C 0 ( 99 ) 

C (AcP0(lC2 

EQUIVALENCE! AE=0{ 1 C 5 

1 (AE30(!C8 

2 (AEPOmi 

3 (AE e O( 1 14 

4 (AES0(117 

5 (AE=0(12C 

A ( AE c O( 123 

7 (AFCD( 126 

8 ( AEFO 120 
EOU l V AL ENC E t A EP O n ( l 

1 (AFP 09 ( 4 


. =HQ 

. CBA9 
.MX'' 
.CL T 
. 7HE”A 
. WLU P 

• *LL9 
. S7i = 
. 3L-t = 
. r-LO A 
. AF 
« HLCF 

* 00 = 
. 0 V = 

a H c 

ecu 
tl = to ) 
. ALT* ) 
, SNUX 
• SNLX 
. SNUE7 
. SNLST 
, TUSNO 
, A< SML 
. 4 KSY 
. AKA Z 
, T3”H~ 

. exur 

. C X* 9 


0) .KCDE<26) .LL 
.”HUSN. THLSN, 3NU0 (1 ,7 ) 


16) 

• SA 7E1 (150 .1 KH (16 0) 


CBLOCOC 
C5LCC02C 
C8LC003C 
CBLCCC4C 
C3LC C05C 
CBLC r * 60 
CBLCC07- 

C3LC : :a: 
CBLC C09C 
CRLC 0 10 0 

c^lcciic 


.(AEPO (52). WT) 
,(A-=0 (55), SW > 
.(AE9n (58) »YIYY ) 
. ( A-90 (61 ) .COT > 


AEPC(£7) . 
Ar c C ( 7 C ) . 
AE=C( 73 ) . 
\EPC( 76 ) . 
i=SO( 79 ) . 
A E F C ( 62 ) . 
1 E P 0 { 85 ) . 
)C9C( 88) . 
A = F 0(91 ) , 
' E p C ( 94 ) . 
AFROt 97 ) . 
E 9 ? ( : C C ) , 

- = n ( : c 3 > . 

AEFn( 1 C6 ) 
i*:C( 1 C 9 ) 

a-c^U 12 ) 
A = P 0(1 1 5 ) 
AFFC ( 1 18 ) 
1 EC 0 ( 121 ) 
A E P 7 ( 1 2 4 ) 
A== n ( 127 ) 
A F p O ( 1 3 C- ) 
= 0~ ( 2) 
s?C"-( 8 ) 


WLLF) . 

MLHF ) , 
STAR ) , 
WLCC) . 
EF ) . 
AP) . 
HUC p ) • 

cc=> . 

SHF), 

rc C) . 

STLtt) . 
A <L" 7 ) , 
ALTZ) . 

• SNUY) 
. SNLY) 
t SNUWL) 
. SnlmL) 

• TLSN'O) 

• AO SNU) 
. A K °H I > 

. T : sy) 

, T4 4Z) 

. C 7 UP) 

• C 7 AD) 


(A ==0 ( 53). 5 ) 

(AEPO (66), XIXZ) 

( AF P O (59),Z!ZZ ) 

( A = p O (6?). CM” ), 

AE=0(55), WLJP). 

AE PQ{ 7 1 ) . 4 (_M C ) . 

AFP0(7&) , n LH c ) , 
AEF0(77) , S T ACP ) . 
AEF0(8O . ") • 

A=P0(«3 ) . HUCP) . 

AEPCH86) * HLCF) . 

AE90O2) . PVF ) , 
AE70(95) , AKP),. 
AF 9 0(98) »*LLTT ) , 


A F c '0 ( 1 0& ) . 
( A F P 0 ( 1 C 7 ) 
( AF c 0 (110) 
( AEFO( 113) 
(AEcntllF) 
( A=PO( 119 ) 
( AF® 0 ( 122 ) 
(A?R 1 ( 125 ) 
( AECO( 1 28 ) 


CMD) 

* S NU z ) . 
. SnLZ ) . 
.SNU6L) , 
.SNL5L) , 

, A<c NU ) t 

. AOSNL) . 
.AKThf) , 
.TOPHI > , 


(«"P( 7), 

( AFPJ=>( 6) , 


C HIP). 

c V A r> ) , 


C P L 0 0 2 7 •; 
C9LC 0 280 
C3LC 0 2 AC 
COL 7 0 30 0 
C 3L 7 C 0 l 0 
CELt C 320 
CdLC C 330 
C3L'034* 
C3LC C35: 
C3LC C 38 : 

C3LC 0 37: 

C3LC 0 33: 
C3LC C 39C 
C3LC 0 40 C 
CBL r C 4 1 C 
CHLC 0 4 2 C 
C3L0C43: 

cil: c44 : 

C3LCCA.se 
C-»LC 0467 
C J L r N7: 
C 3L r :4 3<* 
C H L'*(4Ar 

c ml •: c 5 : r 
c a_ r : 5 1 : 

C3LC r 52 r 
C3l: :53«‘ 

c 7i_ : : : 

col: c ff; 





1 


I 

I 


c ILEC CABLE FORTRAN Tl 


II.!' 

GRUMMAN DATA systems 


2 

rt 

md 

A 

5 

A 

T 

8 

9 

A 


CAFROPC 7 ) 
. ( AER 3 3 ! 1 C) 
C AERO 3 ( 13 ) 
( A“FO=>( 1 A) 
{ AER-UM 19) 
(AEFCP( 22 ) 
CAER 03 ( 25 ) 
( AERCP( 28) 
(AER 33(31) 


CXQP) . C AEFOP( 8) 
CX9P) . ( AP Mil) 
CXD“P).(aL "'(14) 
CX4DW).(A': ; p<17) 

CY5=>) . ( AEcnp<20) 
CYPP) ,( AERCP(?3) 
CYRP) . ( AEF0P126) 
CYO= =») ♦ ( AEPOP(2«) 
CYOA° ) , ( 4r.cpD(32 ) 


CZQP) , ( AEROP! 9) 
CZO°) .(AERO°U2> 
CZPEP) .(AERO»( 15) 
C7 A n P ) , ( AE RQP (18) 
CL8P) .{ AEROP(21 ) 
CL°P) ,(AER0P!?4) 
act>) ,( aerop<2 T) 
CLD=P) .( AEROP(30 ) 
CL">A°) ♦ ( AEROPC 33) 


C«QP) 
CMOP) 
C M OE P) 
CMAOP) 
CNOP) 
CNPD) 
CNCP) 
CNDRP) 
CNOAP) 


C3L0CSA0 
C3L0 C57C 
C7LCC530 
C 3i_C C5 9C 
C 9 LCCA 3 '' 

cacoon 
C 8 lC C620 
C3L0CS "»:■ 
C3LC C64C 


B 

( AE=QP! 34) 

.CYDSP) . ( AERCP(35) .CLDS®) , (4ER0O!36 ) .CNDSP) 

CBLC C 6 53 

= 

OU1YALENCE ! SN! 

1 ), 

GX1 ) 

.(SN! 2). 

GY1 ) , ( SN( 3) . 

GZ1). 

C 8 L r C 6 * 0 

i 

! SN! 

4) . 

GX2) 

» ( SN ( 5). 

GY2) , ( SN( 6 ) , 

G/2) . 

CBLCC 6 "M 

2 

(SN! 7), 

GX 3 ) 

, ( SN ( 8 ), 

GY3) . < SN! 9) , 

GZ3) . 

C3LCC6?: 

3 

( $N{ 10 > . 

GX4) 

, ( SN ( 1 1 ) . 

GY4) , ( SN( 12) , 

GZ4 ) , 

CBLC C 8 9C 

4 

( SN! 13). 

THU) 

. ( SN ( 1 4 ) . 

THL) . (SN!15) . 

ALU) , 

CBLC 0 t 0 0 

5 

( SN ( 1 6 ) . 

ALL) 

• 



CBLCC71 0 


A 

y 

8 

9 


( SN( 19) ,THGX1 ) 
( SN( 22) .THGX2) 
CSN(25),ThGX3) 
( SN! 23) .THGX4) 


(5N(2C ) .THGY1 ) , (SN121 ) .THGZ1 ) . 
( SN( 23) .THGY2) • ( SN(24) ,THGZ2) , 
( SN( 26) * THG Y3 ) . ( SN(27) ,THGZS) . 
( SN(29) .THGY4) . ( SM30) .THGZ4) 


K ASC= ‘ 
I<3 = 5 
I * =6 
LLL = "" 


C3LCC72C 
C 3L 0 C 7 3 j 
C3LCO740 
C3LC C750 
CBLCC7S0 
C3LCC770 
C3LCC730 


DO i: J=1.5C 
11 S 4VE< J )=9Q9Q. 

00 1 2 1=1.150 
1 2 A~R O! I )=C . 

LL=" 

c=ao( !e,155)( 1, rLM ! >. 1 = 1 . 20 ) 

p=A 9( ic,20^ )(<GO=( I ). 1 = 1.24) 

2C0 F0RMA^(26I3) . . . 

*5IT = ( Ite, 1 70 ) K90E ( 1 ) . ( TITLE! ! ) .1 =1 ,20) 
170 =0PMAT( 1H1 . 3X , *CA 5= NC = * . I 3 . 4 X , 2 0 A4 > 


C .LCC30 : 
. CSLCC31C 
C3LCC823 
CBLC C 830 
C3L0C34C 
COL CC ‘*5* 
C3LC C 53? 

_ C3LCC.87C 
C3LCC88C 
C3LCC39: 


CALL R ITE ... 

rfRITE! IW»l T i)( 1. T = 1 .24), ( KQ9E! I ), 1=1 ,24) 

IF(kodF( 7) .EO.l ) GO ""3 10 
P5AO( IP, KO )( AERO! I ), 1 = 1,36) 

GO TO 2" 

10 CALL TAB INI ( 1 . 36, NG ) 

. I c ( NG ■ EQ ,C ) GO TO 2C . . 

ilR I T5 ( Iw ♦ 30 C ) NG 

3C 0 e OPMAT(//, • E^cnej im CE4HING TABLES 1— 36»NG=* ,12) 

GO to 5C 0 

2C READ( IP, 100 )(A^RO( I ). 1=44,59) 

R EAO( IR, K* >( AERO( I ). I =66.130) 

I ff (ODE( 17) .GT.O, )REA0( t R, ICO) (AEPOCl ) ,1 = 131 ,160 > 

ICO FORMAT! AE1 2 .5) 

IF(4“RD(43).tO.*..ANO.AEPn(49).EO.C,)MRITE(IW,1003) 
1003 FORMAT ( ?5X . *W INO OFF CHARACTERISTICS*) 

I c (KO">F( 1.2) .NE. 1) GO TO 72 
CALL T AB IN ( 1, 2.NG) 

IF(NG,EO,r. ) GO T o 72 

irr( iw, 42 ? ) mg 

420 FORMAT! • F.9COR In REAPING SN’JOOFp DATA TABLE ,NG= • , 1 3 ) 


C 3L C C ° 0 C 
CBLC 0910 
C3LCCQ2C 
C3LCC930 
CBLCC94C 
CSLC0953 
CBLC C 952 
CPLOC970 
CBL0C95C 
C3LC093C 
CBLC 1C 0 0 
CBLC IC 10 
CBLC 1C 20 
C3LC 107- 
C3LC 1040 
CBLC 1C 50 
CBLC 1060 
CBLC 1 C 70 
CBLC 1C 8 0 
C7LG 10" 

C 3LC l 1 C 0 


39 



j file: cable c 3pt9am ti Grumman 

' GO ^0 SCO 

\ . ice: o.o 2 a i = x. i sc 

28 A~RO( I )=SAVS1( I > 

BEAD! IR. 150,END=5CC >( TITLE! I ) .1=1 .20) 

ISO FORMATI20A4) _ . .... 

< ASE=I 

DO 34 J = l,50 

... 34 SAVE! J ) =9999. ... 

READ! IB. 20 0 ) ( KODE ( I ). I =1 .24) 

WRITX Itt. 170) KODE ( 1). (TITLE! I ).I-1.2C) 

CALL ° ITE 

i<v=: 

DO 25 1*1. 160 

READ! F, 353 )K.» VALUE 
IKH| I )=K 

I=(K.LT.1)G0 to 22 

IK«=I<M+1 

AER 3( < )=VA_UE 

26 I ~( < .L T .37) SAVE ( K (=AE c O(K) 

... 22 I-( AERC(48).EO.O. .AND. A=ROC49).EO.O.)KPIT£(I«. 1003) 
WRITE! I W. I71)(I.I = 1 .26 ), (KCDS! I ) .1=1 .24) 

171 FOCMAM//* CODE NOS. FOB THIS CASE. •./. 2415./. 2415) 
* 3 ITE( IW, 352) .... ... . . 

352 C 3*?MAT( ?X. • DATA CHANGE*) 

353 C 3!«4T( I3.-12.5) 

I=< KM.LE.3 ) '.0 TO 24 
DO 24 1 = 1, * 

K=|KH{ I ) 

V4LUE = *ERD*. t 

24 *'=I""E( IW. 35 i , ; VALUE 
351 c ORMAT( 3X. t 3. 3X 312.5) 

. LL = 3 ... ... . . 

32 I~(K?DE( 7) .EO .C ) GO TO 31 

00 33 1=1,36 

CALL StinTI(AMACH,G.3,I,I,aEP0(I) .NG) 

IFfNG.NF.'' ) GO TO 40 

33 CONTINUE 
oj 36 J = l. 36 

36 !F(5AVE(J).NE.9999. ) AERO ( J ) = 54 VE ( J ) 

GO TO ’I 

43 W~ ITE! IW.400 ) I.NG _ _ 

40 O FORM A T ( //» • ERROR IN TABLE NO* . 14 . *NG= * , I 2 ) 

GO to 503 

360 r-.cMA"'! 6E1 0 .3) 

31 I^IKASF.EO.l) GO TO g 
WRITE! IW.801 ) 

..801 FORMA T ( SX, • IN»UT OAT* AS SPECIFIED IN AERO ARRAY*) 
WRITE! IW.80C )( I. AFRO! I ).I=1 , I SC ) 

80C RO=M AT! 5(2X, • Ar3i( *.I3,*)=*,G!C.3>) 

O 00 25 1 = 1 , 150 

25 S AVE1 ( I )=AERO( I ) 

I e (<P">E( 3) .EO .3 ) GO TO 48 
I e (< n D'( 3) .E0.?)*= ITE( tw,43) 

42 FPEOU'NCY AES jr N.3= COMPUTATION*) 

!-(<' l CC( 3) ,EQ.2)GD TO 48 



, r 

oata system 


C8LC1110 
C3LC1120 
CBLC 1130 
CBLC 1140 

- - C3LC 1153 

CBL^l is: 
CHLO 1173 

. C3i_Cll8C 

CBLC 1 19C 
CBLC 1 200 
C3LC 1210 
CHLC 1270 
C3LC 123T 
COLC 1240 
CBLC 1250 
CBLC 1260 
C8LC 1270 
CBLC 1 283 
C8L' 12<3C 
CeL01300 
CBLC 1 31 C 
CBLC 1 320 

CaLC133C 

C8LC 1 ?4C 
COLD 1 3 53 
cbloies: 
CFH-OJ37C 
CRL01 383 
C^LCl 3 93 
c«L0 i ao : 

C 8L 3 1 4 1 c 
- C3LC1420 

C3LC143C 
C3LC 1440 
CBLC 1650 
C8L r i *s: 
C5L r 16 TO 
c 3 l : i6^o 
C3L0 169.3 
C8LC 1530 

; CBLC 1510 

CBLC 1520 
CBLC 1 533 
CBLC 1540 
CBL01550 
CBLC 1560 
COLC 1 ^70 
CBLG1 583 
C 8L r 1S9C 
CBLC 1600 
COLC 1 *1 r 
C3L* IS?/* 
CBLCieo' 
COLO X.6 3 
C CL 3 16 50 



40 



] 


1 


I 


1 


OB 27 ! = 1 » 1 5C 

A"51( I t=3*V£l( I ) 

CALL - UTLDC 

I^ILL .EO.C ) GO 1000 

CALL TC AN1 . . . 

I e !<30F! 5) .=0 .0 ) GO TC 49 

WR ITF< I W • 30 2 ) 

c 0"'»;r(4x,' DATA IN S t 48. AXIS AT EOUAT. C=F. CENTER*) 

1 T E( I».P0CXI.A- = O(t )• 1=1 .36) 

CALL TP IM 
CALL TcanS 

I=!KCOE! 5) . p a.C > 33 TO 50 
WR JT=C IW,«0 3> 

roc>U-(4x, *A;C1 A T A IN 9“0V AXIS AT E OUAT. bps, CENT EG • ) 

WRITE! IW.A?4)< I.AEG0=< I > .1 =1 . IM 

HSMA’I 5 ! 2X , • A?ro®( M3.Ms',G10.3n 

IF!<OOF!2)) 71. AC. 90 

m- ITE! IW.70C ) 

c 05XaT( • LONG ITU? I NAL S'A? I L I TY ♦♦♦♦•) 

I~!K20E! 14) .EO. 3)03 T 0 7C2 
idx=xoce: i *i 

I DN=KBDE( 151 

I-<KOOE( 13).N5.-1.)G0 TO 706 . 

I^CXOOEC 16 » .E0.3. )IDN=4 
I-(<OOE( IS) .LE. 3. >G0 TO 7C6 
tfOOE( 151 = 3. 

«iTC( IW.707) 

«^0GMA-(3X. *K3DE! 15) IS INCC=RECT FOR CA3LELESS MOCEL OPTION, 
I 5) IS SET TO 3.*) 
w = I T E( I>,7- l )NJ«=( I On ).NA**E( !«1X) 


= 0G<*aT(« COMPUTATION C- • .A«. */• ,A4, • NUMERATOR RO' 
CALL LONG 

I'MKOCE! 3) .EO.I) 30 TO 42 

go T o in: 

WR IT = ( IW, 750 ) 

B?RMA T C ♦♦♦♦ LATrRAL/OIGECTtONAL STASILITV 
IR(KODE( 16) .EO. 1 ) GO To 703 
IOX=<COE! 16) 

I DN=< 0 Or ( 1 7) 

WRITE! IW.7C l )NA«= it ION) ,NAM= 1 C I OX) 

CALL -AT ... .. .. . 

I~(XOOE( 3) .EO .1 ) 30 TO 42 
GO to 1COO 
WRITE! IW.7QC » 

IE!kOOE! 14 » .EO. 0) GO TO 704 
IOX=KOOE! 1 A ) 

10N=X0DE! J 5 > 

l^IKOOF! 13).NE.— 1. )G0 T n 7CB 
I = IX OOF! IS) .EO.3.11 ON = 4 
IF! KODE! 15 ) .LS.3. )GO T r» 708 
<00 E! 16)=3. 

WRITE! IW.707) 

WRITE! IW.70 i JNAAE! ION). NAME! IOX) 

CALL LONG 
WRITE! IW, 750 ) 


NUMERATOR roots* ) 


COLO 1 S SC 
C3L0 1S7C 
CBLC l SBC; 
CBLC 169* 
_ C3LC17CC 
CBLC 17! 0 
CBLC 17?G 
CBLC 1732 
CBLC 1 74 C 
C0LC 1 750 
CBL r I7<0 
C3L0 17 t.“ 
CRLC 1^-iC 
C9lc i7o: 
C3LC1800 
CBLC 181 0 
C3LC132T 
C3L01S3C 
CBLC 1 84C 
C3LC135C 
CBLC l 36 T 
COLO 1 870 
C3L0133C 
CBLC IBP* 
CBLC 19DC 
CBLC 1°: c 
C8LC 192C 
KCOEC 1C iLC* 1 ?3 * 
C3LC 1 04“ 

c.8l; rose 

CBLC I960 
C3LC 1 170 
CBLC 1940 
C8LC 19RT 
C3LC ?C ~ ' 
CBLC 2* 1* 
CBLC 22 20 
CBLC 2? 3C 
CBLC 2* 40 
CBLC 20 
CBLC 2C 52 
C3LC 2* 7C 
CBLC 20 30 
CBLC 2? ?■: 
CBLC 2 ICO 
C3L02I XC 
CBLC 21 2C 
CBLC 2132 
CBLO 21 4' 
CPLC21 5? 
CBLC 2 is: 
c 3l c 2 1 7 ; 
CBLC 21 32 
CBi_C 2 1 pc 
CBLC 2 2C * 
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“♦# •‘■ft’’*'- > 


1 


i 


I 


1 


I i 

FILE- CABLE FORTRAN T1 . 

l c (<ODF( IF > .EQ.C) CO TO 70? 
IOX=<DDE( 16) 

I ■>N=Or'E< 17 ) 

WRIT=( II*. 73 I )NAMEi( ION) .MAMEl ( IDX) 

JZC 5 C ALL LAT . . . 


-GRUMMAN 


I=(03E( 3) .E9 .1 ) GO TO 42 
GO 73 iooC 

SCO STOP 

END 

SUBROUTINE OUTLOC 
common/ input/ 1 V, 1= 

COM'ION/CA^/A^snt 17S),AES0»<53) .>CP0E(2S) .LL 
I=(LL.GT.C) GO '-0 *2 

I I=K3DCt4) . - 


VA=Y = Aest 4ERO( ! I )* .1 ) 
ANOM= AFRD( 1 1 ) 


J 


O A T A 


L-? 

LL=1 

M9ITEC IK ,603) II 

6C0 F 3&M AT C XH1,3X»» = Q3T LOCUS VARYING ALFO C • , I 3 . • ) • ) _ 

*2 L=L«-l 

II=KODEf 4) 

ATR3I I I ) = AM04— 5,*VAP Y*-L* VAC y 

I=(L.G-.P) G3 TO 44 
*9I T F( IV. 1 AO) KOD-ZI 4) , AE“C( I I I 
180 FORMAT! /2X, 5HAER0! . I3.2H)=»G1 2. 5) 

RETURN 

44 A*R3( I IJsANON 

.. ... LL-I . ... . . . . . . 

R E r U“ N 
EN3 

9L3C< DATA 

COMAON/ANAME/NAMEI 16) .NAME! < 16) 

D4-A NAME/* 2 • » * THE 7 • , • D T= • , • X • * *0 T^B • • • TMTM* • • EMT* , 
* • T HMO • » * EM *«* OTC * » • EM?*,* 07 *,*TMTO*,‘ •» 

2* 3ELE* . • A_FG» /.NAME 1/* Y *.* => SI • • • PHI • . • OT^D* , • =>SI M* , 

2* stmt* , *c»SMO* , io<;ir * . • EM *,« 0 TC • » ' EMO*,* 07 *,* *, 

3* OFLR * » * DEL A • , • OF TG * / 

END 

SUBROUTINE c REO ( ROO T S» K4A , TFG ) 

C3MM3N/IN3UT/IV, IR _ .. .... .... 

COMMON /3AT/AE=0( 1 75) . A=FSr ( 5C ) .K00EI26) . LL 
COMMON /PL3T/0*M 61) .AMR ( 61) .ANGLE ( 61 ) ,XMP(6i ) ,KV 
COMMON/ AN AM E/NAM = ( 16). NAME 1(16) 

COMPLEX ROOTS! 1) 

COMPLEX CN’.M 29) 

DIMENSION DOM (21) 

DATA Pom /I •• 1 .2. 1 ,5. 1 *7. 2 • C .2 . 5 * 3 . C .3. 5.4. 3 .4.5 .5.0 .5 .5 . 
16.'*,6.?.7.0.7.5.8.C,9.5.9.C,9.5.1C./ 

IL=0 

INI -K OCE ( 14 ) 

IN2=<0PE( 15 ) 

* r( <rocr( 13 ) ,nF.-1 . )G0 TP 32 
I F( <?0E ( 15 ) .E0.3. ) IN2 = 4 
IF(<ODE( 1^) .LE.3. )G0 TP 3? 


SYSTEM 

COLO 2210 
C9LC222C 
CBLC 2 2 30 
CBL02240 

C3LC 2250 

CBLC 2253 
CBL r 2?TC 
C9LC 225C 
CBLC 229'" 
CBLC 2 300 
CBLC 231 : 
COLO 2 32 0 
CBLC 2330 
CBLC 2 34 3 
C3L027SC 
C 3L P ? "* 6 ' 
CBLC 2370 
CBLC 233? 
CBLC 2 390 
CBL0243C 
CBLC 24 1 j 
CBLC 2 42? 

CBLC 24 3 C 

CBLC 244C 
CBLC 2450 
C3LC246C 
CBLC 247C 
Col? 2 a 8 ' 
C 3 LC 24 RC 
CBLC 25)0 
C3LC 25!' 
C3LC252C 
C3LC25TC 
CBLC 254 0 
C8LC255C 
CBLC 2560 
CBLC 2570 
CBLC 258C 
C0LC259C 
CBL0 2600 
CBLC 25 1C 
CBLC 262 3 
CBLC 2630 
CBLC 2640 
CBLC 2650 
C8LC 266C 

CBLC 2670 

CBLC 2680 
CBLC 2690 
C3LC27): 
COL? 271 ) 
CBLC 272? 
CBLO 27 ?? 
CBLC 2740. 

C )L0 ?7«C 


i 


k 2 


I 



F0OTRAN T 1 


GRUMMAN 


DATA 


systems 


KODEt 151=3. 

*3I7E( IW.7071 
707 FORMATt ?X, • KODEt 151 IS INCORRECT FOR CABLELESS 
1 5> IS SET TO 3 • * > 

__3 2 . GO ”0 M . . 

ENTRY FPEQ2(R00TS.K4A.TFGI 
IL=1 

INMK0DEC1M 

IN2=<0DE( 171 

31 CALL ANOtCMU.C..KN,AM»N0.RHSNa*ITYPN> 

CALL AN»t ROOTS, 0..K4A , A MC»30 t°HS00 ,1 TYPO) 

TGAtN=TGN/TFG 
SGN=ABSt TGA IN l/^GAIN 

IF( AMoro.NS .C . )5SSN=TGA IN*AMDN0/AM»D0 
I -YPE= ITYPO-ITYON 
IF(<OOF( IP) .LF, 101GO TO 3 

INsZ*' 

lK=l 
GO TO A 

. 3 IF(KOOE( 19) .LE.5)SC TO 5 . . - 

IN=10 
IK=2 

GO TO 4 _ .. . __ _ 

5 IN=5 
IK=4 

4 IN|T = <0P=( 19) 

K=IN*3*1 
KV=K 

I ox = c 

00 1 1=1, < 

I DX = I D X ♦ 1 

I c ( IDX ,LE. IN>GC TO 2 

INIT = INIY>1 
1 0X= 1 

2 0M( I )=D0M< ( IOX-1 )«IK+1 )*< 10. » I NIT 

CALL ANP(CNU,QM( I ),KN.AMRn.RHSN,ICUM) 


C8L02760 
C3LC 2770 

MODEL OPT I ON* KOOEC 1 C 3LC 27 3C 

C3L0 2790 

_ cblc^**© 

C3L0261C 
C3L0 2-H20 

* C3L0 28 3C 

CBLC 2340 
C8L02950 

... C3LC296C 

COLC 2370 
CBLC2990 
C3LC2390 
C3L0293C 
C3L02OIC 
C3LC2Q20 
C9LC2P30 
C3L02Q40 

C3L0295C 

CBL0296C 

CBL0297C 

C3L0293C 

C3L02O90 
C3LC3C0 0 
C3L0 33 10 
CBL0302C 
'CBLC 33 30 
C3LO3040 
CBLC 30 SO 
C3LC30SO 
C3L0 3C7C 
C3LG 30 30 
C3LC 30 30 
. - C3LC3100 

CBLC 31 I " 


CALL ANPIROOTS, OMt I ),K4A .AMPO.PHSD. IDUM) 

.. AMP( I )=20.*( ALOGIOI AM=N/AMDD )4AL0G1C (A8SC TGAIN) > ) 

XMP( I >=T3AIN*AW-»n/AMO0 
ANGLEC I)=( PHSN-PHSD >4 57.29579 

... . IF!SGM.LT.O.)ANGLE( I MANGLE ( I M19C. .... . ... 

1 continue 

IF( IL •EO.'' >wR ITE( IW, l C >NAMF{ IN2) .NAME ( INI > 

I c t IL .NE.C MR ITE( IW, 1C >NAM=H I N 2 » ,NA ME l C I Nl) 

10 FORMAT ( 1 HI , * FRFOOENCY RESPONSE OF THE • , 2 X • 1 A4 . • / • , l A4 , 2X , 
I'TRANSFER c UNCT ION * ) 

IF<ampD0.NE.C.)«9IT5(IW.17)SSGN 

I Ft AMPDO.EQ.O . MR ITEt IW, 18> ITYOR 

17 RQRMATt • STEADY STATE GAIN = • , 2X ,2 1 1 • 4 , ✓/> 

18 FORMA” ( * SYSTFM t YPE = ».2X,I4) 

IF( IN .GC.2C >G0 TO * 

WRITE! IW. 11 > 

11 FORM A T ( //, 2X , • FR” 0 ( R o S ) »,2X.*AMP R AT ( 03 > • , ? X . • PHASEtOEGl 

1 , 2X . • AMP. VALUE * > 

DO 7 1=1, < 


CBLC 31 23 | 

CBLC 3130 ji 

CBLC 31 4C 
CBLC3150 
CBLC 31 SC . 

C3L0317C { 

C3LC3130 j! 

C3LC 3 IOC * f 

CBLC 3200 ; 5 

C3L03210 | 

C3LC322C J 

C BL 0 3 2 ^ C i'i 

CBLC 32 AC 1 

CBLC 3 2 SO 
CBLC 3260 
C3L0327C 
CBLC 3 2 40 
C BL 0 3 7 30 
C9LC33CC 
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1 


I 


FILE? CABLE FORTRAN TI GRUMMAN DATA. -SYSTEM 


7 *»!TP( IW, 12>0M( I ) ,AMP( I» .ANGLE C I I .XMP( I) 

-- 12 F3RMA7*4(2X.E11.4).5X.4(2X.Ell.4> » ------ 

GO TO B 
6 WSITE< IW* 1 1) 

— 1 3 FORMAT*//. 2X.» co£Q| 50S ) • ,2X. »AMP RAT(DB) • ,2X,» PHASE*DEG) • , 2X 

1 » • AMD . VALUE *.7X. 

2* FREQ{C»S» l .2X.*4MR RT*0B)».2X.» PHASE ( OcG ) *.2X,*AMP. VALUE •) 

; - .K=K/2fl ... - 

DO 9 I*I.K 

I*'! I .NE.OGD TO 9 

iv, 15)0«( 1*30 J.AMPC 1 + 3?) .ANGLE* 1*30 » .XMPin-JC) 

15 FORMAT* 5/X. 4( 2X.E1 l .4) I 

GO TO e 

> O = ITE( IW. 12)0M* I ) .AM =>* I ) .ANGLE* I) .XVP* I ) .OM*3C + I> .AMPC3CM) . 

1 ANGLE* 30 ♦ I | . XMP* 30 + I ) 

8 WRITE* IV. 14 1 

14 FORMAT* 1H11 ...... 

\ RETURN 

\ ENTRY FBE91 (SOO T S. X4A.TFG1 

\ - KN*IC4 4 . _ . ... 

{ TGN=T?G 

i IF*<N.EO.O 1RETURN 

| 03 *C 1 = 1. <4A 

CNU* I )=OOOTS* 1 1 
2* CONTINUE 
; RETURN 

C DEBUG UN IT* 31. IN I T 

END 

subroutine anrccxu.om.kx.amp.ang. ITYPFI 

DIMfn? ION CXU( 2. 1 ) 

ITYRE=C 

AN 6*0 • . . 

AMP=1 .? 

I F( KX .FQ.? )R=TURN 

DO 1 1=1. KX - ...... 

XQL = -CXU( 1,1) 

V IM = OM-CXU( 2. I ) 

AMP=SORT*X3L*XPL»YIM*VIM)*AMR .. 

IF* XRL .EO.C . .AND.Y IM.EO.O. )G0 TO 2 
ANG=ATAN2( Y IM.XRL) + ANG 

; GO TO 1 . ...... .. 

? ANG= AN G 

iryoEs ITYRE+1 


C BL 0 3 3 1 C 
CBLC3320 
C3LC3330 
C3LC3340 
CBLC 33SC 
C9LC 3380 
CBL0 337C 
CBLC 333C 
CBLC 3390 
CBLC 3400 
CBLC 34 10 
CBLC 3420 
COLO 3430 
CBLC 3440 
C3LC34SC 
CBLC 346C 
CBLC347C 
CBLC 3480 
CBLC 3493 
CBLC3S0C 
CBLC 351 0 
C3L0 3523 
CBLC 3533 
CBLC 3540 
CBLC 3553 
CBLC 35*.: 
CBLC 3570 
CBLC .3580 
CBLC 359C 
CBLC350? 
CBLC 3610 
CBLC 3520 
CBLC 3633 
CBLC 3640 
CBLC 3853 
CBLC 3680 
CBLC 3670 
CBLC 3680 
CBLC 369C 
CBLC 37CC 
CBLC 371? 
CBLC 3730 
CBLC 3770 


1 CONTINUE 
PETURN 

C DEBUG UN IT* 3). IN I T < A NG . XPL . YI M ) 

ENO 

SUBROUTINE tqanS 

C THIS ROUTINE CALCULATES BODY AXIS AERO DATA AT CR FROM STAB, 
C AXIS A=90 DATA AT CR 


CBLC 3TA? 
CBLC 375 3 
CBLC 3760 
C BL 0 377“ 
CABCC31 3 
CAB? 3 r 20 
C ABC C* *0 


COMMON /DAT/ A=EH*175) 

.AEROP* 50 • KODE( 26) « LL 



CABO 0? 4 0 

EQUIVALENCE* AE= 6 ( 1). 

CDU).(*=Rn* 2), 

CLU> , ( AERO* 

3) • 

CMU) , 

C ABC C C 5C 

(AFRO* 4), 

CDA ) « ( 'fbq ( 5 ), 

CLA) ,( AFOO( 

6 ) , 

C M A ) , 

CAB'" CO 6 r 

(AE=0( 7), 

COO > . ( 43 RO ( 8 ). 

CLQ) . ( AER C ( 

9) • 

CMO) , 

cahc : : re 

(AFRO(JC). 

COO) . ( 4”RO( 11), 

CLC) ,( AFCO( 12). 

C«o> . 

c abc : : bo 
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ffWM* *»**- 


t 


1 


FILED CAB«F 

FgerpAN Ti 



G o U 

M M A N C 

A T A 

SYSTEM 

4 

{ 4SF0I 13). 

CODE) 

,(i?cn(:4) 

. CLCE ) 

•(A£P0(!5) , 

C*CE) , 

CABO COPO 

5 

( AECOt 16 ), 

cr ao » 

• ( A EPOC 17) 

.CLAD) , 

(AEPO< 18) »C 

MAD) . 

CABC 0 IOC 

«. 

(AEC-){ 19), 

cv* ) 

,<A5co(?C) 

* CLfl) 

• ( AFPCM21 ) , 

CN3) , 

CAHOOIK 

7 

( AESOC 22) . 

CY»> 

• ( A=RO<23) 

• CLP) 

.( AEK0I24 ) , 

CAP), 

CABC 0 1 20 

__ 9 

( AEPOt 25), 

CYC) 

. (afpC(26) 

. CLP) 

.( AEC0C27) . 

CM 5 ) • 

CABC Cl 30 

O 

f A=C3{ 2P ) « 

CYO= ) 

, ( AESCM 29) 

. CLOP) 

.(4EPn(3C ) • 

CNDP ), 

CABO C 140 

A 

(AFFO( 31 ), 

cyDa > 

,< A5BQ(32) 

. CLDA) 

.( 4FPOC3? ) . 

cnta ) , 

CABCC15C 

B 

(A£Q1( 34). 

CYDSI 

.(A£50(35) 

• CLD5) 

•( A£PJ(36). 

CN05). 

CABO Cl 60 

C 

C AERD( 44), 

ype=) 

. ( AFCO (45) 

* 7P = F ) 

,( AER0IA6 ) . 

XCG). 

ChB0 0170 

D 

|AE»-)(47>. 

ZCG) 

.<AE9D(63> 

. T HFT» ) 



CA8001BC 


... . eouivalemce 

(i'^ai 1) 

, cxup 



(A;=OP( 2) 

. CZUP) 

,(AE30P( 3) 

• CMUP), 

CABC C 190 

i 

; 1 

<AEPDP< 4) 

, CXAP 



(A"503( 5) 

. C7AP) 

,(AECOP( 4) 

. CMAP), 

CABO 0 20 0 

i 

2 

CAEPOPJ 7) 

. CXQP 



<AEPOP( 8) 

, C ZOP) 

* ( AESOP ( 9) 

• CMQP), 

CAB0C210 

.* 

3 

( A£P0P( 1C ) 

, CX3P 



( A£SCP( 1 l ) 

. CZCP) 

. (A£S3S(l£) 

• CMOP). 

CABC 0220 

* 

5 « 

( AF=OP( ! 3) 

,CXD~o 



{ A-COP( 14) 

,CZDFP) 

, (AECI0D( 15) 

.CMDfo) , 

CAOC 0 23C 


5 

(AFP IP ( 16) 

.CXaDP 



( A-POP( 17) 

,:zaod) 

. ( A"BO° ( 1 9 ) 

.CMAOP), 

CA3*C24C 


; 6 

( AECOP( :«) 

• C Y3P 



( AFPC°( 2C ) 

, CL3P) 

. (AEF JP (21 ) 

• CN3P), 

CA3CC25C 

4 

7 

(A=POP( 22) 

, CY»P 



( A£P0P(23> 

. CIPP) 

,(A=-C33(24) 

. CNOP), 

CABC 0 260 

i 

9 

( AFPOP( £5) 

, CY=P 



(ATS OB(26) 

. CLPO) 

.( AE=3P(27) 

, CNfiP), 

CABO 0 27C 

i 

9 

( AEPC=><23> 

,CY0 C P 



( AEFOP(29) 

. CLOPD) ..( AE PQP ( 30 ) 

• CMCr.P) . 

CAB0C23C 

*- 

A 

( AERO 3 (31) 

.CYOAP 



( AEPCIP(32) 

• CLOAO) 

. ( AESOP( 33) 

• CMDAP ) . 

CABCC29C 

J 

a 

(AEPOP( 34) 

.CYOSP 



( aecop(35) 

•CLCSP) 

• ( AFCO° ( 36 ) 

• CNOSP) 

CABC 0300 

V 

... ALPHAsTHET* 





_ * 

.. 

. . ... 

.. ... 

CABC 0 31 C 

SNALF= SIN(AL°H4) 








CABC “ 32C 

‘ 

COALFs CCS( ALPHA) 








CAB0C»3C 

t 

SN 30 = S\AL 

'**2 








CABC C 34 0 


COSO = COAL F* * 2 








CA30035G 


5*IC0 = SNALF*COALF 








CABC C 760 


COU=CCU*2 .* 

( COO *CDA * " 

HE TA ) 









CAB C C 370 

| . 

CLU = C_U*2.*C CLD*Cl.a«7 

W£ TA ) 







CABO C 390 

: 


COA = CDA-{CLO*CUA*TH£TA | 

CLA=Ci_ A*CD 3 *C 0 A*thtta 

CXU»=-CL A»SN«;a-C0U*C~5Q*( C?A4-CLU> *snco 
CZW3= CD A* SNS3— CLU * Cl 50 ♦ { CLA-00 U) * SNCO 
C*UO= -OvA * SMALF ♦ C‘-»U *CCAlc 
C< A3= CLU*SN5fl-CDA*CD?a + (CLA-CDU)*3NCC 
C7AP=-CDU*SNSO-CL A*CDSO-(CDA*CLU)*SNCO 
CM AOs C*U *SNALF* C** 4 *COAL c 
CXQOs CLO*SNALP’-CDO*CDAL p 
CZQ 3=-( CD3*SMAUF+CLa*CCALF) 

cmop= cva 

CZ AC>p = -CLAD*C0ALF+CD4C*SNALF 
CX A0 a »— CDA D* CD * LF— CL AD* SnALF 
C’«AD=> = C M 4 0 

CXO£°= CLDE*SNALF-CDD£*CDAlf 
CZDE:» = -CC0£*5NALF-Cl:)£*CDALF 

CMDE 3 ® cmte 

CXOOs-CDO* CTALF-CLCASNALF 
C7 Qo=— CLO* CCALF+CDD* SNAL e 
CMno=c ,, 0 
cyn">= cxa 

CM3P= CL3 * SNALF ♦ CN3 *COALF 
CL* 3 * -CNJB *SNALF ♦ Cl_B *COALF 
CVDOs { -CV= *SNALF C vo* C DA LF ) 

CN°3s( -CL? *SNSO* C\»*£0 SI*- (CL 3 - CNR)*SNCO) 


CaBC 0390 
CAB CC4CC 
CABCC4I0 
CABC 0420 
CA9C0430 
CABC 044 0 
CABC CaB'* 
CABO 0460 
C4B0C47C 
CA3CC4AC 
CABC 0490 
CABCC5CC 
CABC 0 51 C 
CABCC52C 
CABO C 5 30 
CAB0C54C 
CABCCF50 
CABC C 560 
CABC C 570 
CABC C 5 30 
cabcg59* 

CABC 063^ 
CAar.OAj o 
CABO C 6 2 C 
CABC ' 63 r 
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^ILEO CABLE FORTRAN T1 


GRUMMAN CATA SYSTEM 


CLP»=( CNPXSNSQ* CLP^COSC' * CLP 
CYROs { CYP * 5NALF ♦ CY9*C0ALF) 

CNQP = < CL 3 *SNSQ+ CN'-*CCSO+ ( CL° + 
CLFP=( -CNO*SNS0«- CLR*COSQ4 (CLP- 
CYDA®= CYC A 

CND A®= CLD 4*SNAL C ♦ CNDA*COALF 
CLOAP= -CNDATSNALF* Ci_DA*COAL c 

CYDS®= CYDR .. _ . 

CN0RO= CLC3*SNALF4- CNDC^CntLF 
CLOPP=-CNOP «SNALF* CLDR *C n ALF 
CYD3®= C y DS 

Cldnd = -cnos*snalf«. CLCS^CCAL^ 
CNDS D = CLDS*SNALF+ CNDS^C^aLF 
_ RETURN 
END 

SUBROUTINE TSiNl 

THIS ROUTINE TCAnSFOcms INE c TIA D4*A 


CNP) * SNCO) 

CNO) *SNCO ) 
CNR) * SNCO) 


STABILITY AXIS AERO DATA 


( AE F. 3 { 3 1 
(A E=0< 61 
( AERO ( PI 
( AF C 0( I 2 I 
( AEGO( 15 ) 


( AER C (21 ) 
( AE°0 ( 2 A ) 
( AEP0(27 ) 
( AEo 3 (3C ) 

( A-CO(33 I 
( AuRO(36 I 
{ AEROIA6 I 


C TO The equation cp.-E=r N ;r CENTER 

COMMON /OAT /AERO ( 1 75 ) . A E= 2° ( 50 ) .K00EC26) «LL 
EQUIVALENCE! AE=0( l). CDU) (AEPO{ 2). CLU).(AER3( 

1 <AER0( 41. CO A ) . ( AF RO ( 5), CLA).(AE = 0( 

2 * ( AERO ( 7), CQO).(AERO( 9). CL Q) » ( AERO ( 

3 <AERO(lC>. COO ) . ( A-RQC 1 1 ) , C LB) , ( 4E c D ( 1 

4 t A£PQ( 13). COPE) . < AEROC 14) , CL0E).(AEC0(3 

5 C AERO 116). COAO I . (AEROI 17) .CLAD) , { AEROt I€ 

6 (AERO! 19). CY3) ,(4ERO{2C) . CL8 ) . ( AER 0 (2 

7 CAER0(2£). CYP) » ( 4 cr ROC235 . CL D ).(AEO0(? 

9 f AEPP ( 25 I . CY= ) . ( Arcoi 26) . CL°) . ( AERCU2 

9 <AE®0C2«). CYO= ), (4ER0C29) . CLD=) ,(AEO](] 

A CAE=OC31>. CYDA ) , ( 4ER0(32) . CLD A > . ( A~S D ( 2 

B CAES3(34). CMOS ) , C aER 0(35) , CLO SI . ( Ac R O ( 2 

c f A£PO( 44 ) . X>= ) . ( 459(3(45} . ZRE* 7 ) . ( AERO( * 

D (AEP0147), ZCO> . ( AER0I62) .THE^A) 

EQUIVALENCE! AERO 1 -♦ ? ) . A M a CH ) . ( AER O (49), VO )»(AER' 
EQUIVALENCE! ae= 0 (51),RH0 ).(AEPO (52). xT).<AE9: 

EQUIVALENCE! A£=0 (54),C3AR ).(AEPO (55), S A ).(AERC 

EQUIVALENCE! AERO (57I.XIXX ),(*EPn (58I.YIYY ),(AEPC 

EQUIVALENCE! AE=0 (6^),CLT ),(AERO (61). COT ).(AEPC 

C INEPTIA '•oanSFORMATIOnS 
X=XCG/12. 

Z=ZCG/ 12. 

X I XX = X IXX + AV*! Z * * 2 ) 

Y IYY=Y IYY+AM* ( X** 2) . AM* ( Z* *2) 

Z IZZ = Z IZZ AAV* ( X** 2 ) 

X IX7 = X TXZ-AM*X*7 
C AERO DATA TRANSFORMATIONS 
X=XPSF/{ 12.*C0AP ) 

Z*ZREF/( 12.*C«AP ) 

CMO=CMO-Z*CDO*X*CLO 

CMQsCmQ— X* { — CLQ ♦ 2.*C V A )-2.*X*x*CLA — Z*C00f2 . * X*Z*COA 

CLQ=CL0-2.*X«ClA*A.*Z*Cl.a 

CDQ=CDO-2.AX*COAA4.*Z*COO 

CMA = CMA-z*COA«-x*CLA 

CMOE=C M OE- 7 *CDO£+X* CLDE 

X = XR^p/( 12. TO ) 


E CENTER 

AE=2 D (5C) , KOOE ( 26 ) »LL 
COU) ( 4EP0 ( 2) . CLU) 
COA),(AFRO( 5), CLA) 
COQ) . ( AERO ! 9), CLQ) 
COO ) . ! A-CQ! 1 1 ) , CLO) 
COPE) .! AERO! 14) , CLOE) 
CO AO ) . ( AERO! 17) .CLAD) , 
CY3) ,(4ECO(2C) . CLO) 
CYP) , ( 4ER0( 235 , CL°) 
CYR I . (AERO! 26) . CL° ) 
CYD= ) , (4-90(29) . CLOP) 
CY04 ) , ( 4ER0(32) . CLD4) 
CYQS ) . (aER 0(35) , CLOS) 
X=c- ) * (4ER0(45) , ZREP) 
ZCG ) . t AERO! 62 ) .THE ’ r A) 
, amaCH) . { AERO (49) ,VO 
* R HD ),(AEPQ (52). « 

, C 3 A R ) , ( AERO (55) ,S A 
,XIXX ),(4EP0 (59I.YIYV 
, CL T ),(AERO (61). COT 


AERO( 18 ) .CMAO ) . 


CMJ) . 
CMA ) . 
CMQ) , 

CM2) . 
CM02 ) . 


CNO) . 
CN®). 
CNR ) . 
CNOP) . 
CND4 ) . 
CNOS) . 
XCG). 


(49) ,VO ).(AE90 (50). AM) 
(52). XT). (AERO (531.9 ) 
(55) .SX ) , ( AERO (56), XlXZ) 
(58I.YIYY ) , ( AERO (59I.ZIZ7 ) 
(61). COT ),(AEPO (62I.CMT ) 


CA9'" 064 0 
CABC 0653 
CABC 0660 
CABC 0670 
CABC 0 690 
CAB* 0690 
CABC C ''CO 
CABC 0 7 1C 
CABC C 72 0 
CABC 3 730 
CABCC74C 
CABC C 7E~ 
CABO C 76C 
CABC C 77C 
CABC 073 r 
C4BCC79C 
CA3^C 30C 
CAdCCBIC 
CABC C 320 
CA60C 33C 
CABC 0340 
CABC C 950 
CAROC 360 
CAO^C 372 
Cabo C 33C 
CAB0C99C 
CABO C 90 0 
CABC 0910 
CABC : 920 
C ADC 0 970 
C49C 0940 
CABCC 95C 
CABC 0960 
CAOC 0 970 
CABO C 93C 
CABC 0 9-9 C 
CA30 1000 
CABC 1010 
CABC 10 20 
CABC 1030 
CABC 1040 
CABC l" 50 
CaBC 1060 
CA82 1 : 70 
CABO 10 3 0 
CABO 1090 
CABC 1 IOC 
CABO 1 1 1C 
CABC 1 120 
CABO 1 1 .30 
CABC 1 1 4 * 
CABC 1 150 
CABO 1160 
CABC l 1 70 
CABC 1 1 3^ 
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p ILfO CAB^E p^ctsan ti 


2 =7REF/( 12. *3 ) 

CNR = CN c -fX*( 2 » *CN9 *C YR ♦ 2 • * X* C Y3 ) 

CLR = C_R*X*( CLQ-Z*CYd)-Z*CYR 
CNP=CNP-2. *Z* ( CN9*X*CV9 )*X*CYP 

CLP=CL°-Z*( CYP-2.*Z*CY0 )-2.*2*CL9 .... . 

CYR=CYR+2.* X*CY9 

CYP=CYP-2.*Z*CYB 

CN3=CN 1+<*CYB 

CNDP=CNDP*X*CYDR 

CNDA=CND4*X*CYDA 

CNDS=CNOS*A*CYOS 

CL 3- CL o-7*CYB 

CLDR=CLOR-Z*CYDR 

CLDA=CLOA-7 * CVCA _ 

CLDS=CLPS-Z*CYDS 

RETURN 

end 

SUBROUTINE L A T SN 
COMMON/ INOUT/ l W. IR 

CDMMQN/DAT/AEROC 1 75). AEROPC 50) .KCDEC 26) .LL _ .. . 

COMMON /SNU 9 B/SNU( 3.3) . SN ( 30 ) » T HUSN» THL 3N» SNUD (3.3) 

common zzzc 2ce) 

_ C3MM3N/DU/CUM( 1C, 1C ) . . .... ... 

COMMON /T A9 I /ZZ( 900) 

FQU I V AL FNCE ( A F c O < 1C5). SNUX ) . ( AEPO( 1 06 ) , SNUY) , < AERO { 1 C 7 ) , SNUZI, 
1 ( AERCt 109) » SNLX > » { AZ=3( l C 9) . SNL Y) , ( A £5 0 ( 1 1 0 ) , SNLZ), 

?( Arpo( HI), SNUST ),( AEPQ( 1 12).SNUWL) . ( AEPCJ1 ! 13) , SNL9L ) . 

3 C AERO ( 114). SNL FT ) , ( AZ=D( 115). SNLtfL) , (hEFOCI 1 6) , 3NL3L ) . 

4 ( AERO ( 1 IT) . mSNO ) . ( AZ=D( 1 1 6) . TLSNO) . ( AEPO (1 1 9) .AKSNU) . 

5( AEBOC :2‘)).A<?NL).( AERC(4Q) ♦ VO > . ( AE PO( 51 > , RHO). 

6{ 4FR 3(63). THETA), (A £9 0(121). AO SNU) , ( AE=0 ( 1 22) • ADSNL) 

EQUIVALENCE (SN( 1), GX 1 ) . ( SN ( 2). GYl).(SN( 3). SZ1 ) . 


GZ2 ) . 
GZ3) . 
SZ4 ) , 
ALU) * 


1 ( 3N( 4), GX2),(SN( 5). GY2).(SN( 6), GZ2). 

2( SN( 7). GX 3 ) . ( SN ( 9). GY3),(SN( 9), GZ3). 

3(SN(10). GX4 ). (SN( 11 ) . G Y4 ) » ( SN (12). SZ4), 

4C3N(13), THU), { SN( 14) , THL) . ( SN(15) . ALU). 

5(SN(16), ALL). 

6( SN( 19 ) . ' r HGX 1 ) . ( SN( 2C ) . THGYl ) . ( SN (21 ) • THGZ1 ) * 

7< 3N( 22 ), THGX2 ) , ( SN( 23) , THG Y 2 ) . { SN(24) , THGZ2) , 

8( SN( 25). THGX 3). ( SN( 26) , THGY3) . ( SN(27) , THG 23 ) , 

9( SN( 29 ) , THGX4 ). ( SN( 29) . THGY4) . ( SN ( 3C ) , THGZ4 ) 

D I MENS ION TOPP ( 3,3), TOPL( 3.3) ,EOTR(3.3) , f 30TL(3 .3) 
COT( BBB ) = 1 • /T AN ( BBB ) 


GX Y ( 4, AA.C ) 

GXSY( A. AA, C.O.E.F ) 
GXPHI ( A.AA.C.D.E.F.G) 
GYY ( A » AA ) 

GYSY( 4, AA, C.O.E.F ) 
GYPHK A, AA, C.O.E.F) 
GZY( A. AA.C) 

GZSY( A.AA.C.O.F.R.G) 
GZPHM A, AA. C.O.E.F) 
ALY( A ) 

ALSY( A.AA.C.O) 

AL">HI( A.AA.C.O) 


C-a*COT(AA)/C)*12. 

-{ A*SIN(AA)4C*D*C0T(E) ) /F 

( A*AA*COT(C)-D*E*COT(F) )/G 
( S I N { A ) /AA ) *12. 

C A*AA*COT(C) ♦0*SIN(F ) )/F 
-( A*SIN(AA)*C*D*COT(E) ) /F 
(— A*CO T (AA)/C)*12, 

{ A*AA*CCT(C)-D'«E*CCT(F) )/G 
( A*AA*COT(C ) +0* SI N(E ) )/ c 
•A 

(A*AA»C*D) /12. 

( A*AA-C*0) /12. 


CABC 1 1 90 
CABC 1 20 C 
CABC 1 21C 
CABO 122C 
CABC 123C 
CABC 1 240 
CABO 1 2 50 
CABC 1 260 
CABC 1270 
CABC 1 290 
CABC 1 ?9C 
CABC 1300 
CABC 1 31C 
CABO 1 320 
CABO 1 33C 
CABC l 34C 
CABC l 350 
CABC C C 1 C 
C ABO C 0 20 
CABO CO 30 
CABC C 04'* 
CABCCC5C 
CABCCC6C 
C40GCO7C 
CABOC? 39 
CABC C ? 90 
. CABO C IOC 
CABC C110 
C ABO C 1 20 
C ABC C 1 30 
CABC C 140 
CABC C 1 50 
CABC C 1 60 
CABO 0 1 7C 
CABO C 1 3C 
C ABO 0 190 
C ABO C 20 C 
CABO C 21 C 
CABC C 220 
CABCC2 3C 
CABC024C 
CABC C 250 
CAQCC 26C 
CABO 0 270 
CABO C 290 
CABCC29C 
C ABO 0 3 00 
C ABO 0 310 
CA30C 320 
CABC C 33C 
CABC C 340 
CASCO 35D 
CABO 0 ?*>C 
CA90C370 
C40C C 390 
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DO 1006 1=1,3 
DO 1005 J = 1 . 3 
SN J ( I, J )=C 

1005 SNUO( I » J ) =0 

DO 1 0 C 6 1 = 1,10 _ ... . _ 

00 1006 J=l, 1C 

1006 DUM( I. j )=0 

_ . IF(<ODE( 10 ) .CQ.OJ GO TO 1002 

C TEPMS F^S SNU03EF EFFECTS (L*T) 

CALL OOCSN( T HFTA) 

IF(<ODF( 10),zQ,i) CALL D3CUSN{ THETA) _ . 

0'JM(1,?) = -TUSN)*GX1 
DJM( 1,3) = TUSND*GZ1 

. . ... DUM (1,5) = -TUSN?»SIN{THGY1> ... . _ . 

D'JM(i,7) = GY 1 

OlJM(2,2) = SNUX*TUSND*GX1/12.*SNUY*TUSND*GY1/12. 

DU 2,3) = -5NUX- T U5\3*GZl/12, 

DUM (2,4) = -SNUY*TU5N0*SIN('MGX1)/12. 

DJM|?,5) = SNUX*TUSNO*SlN( THGY1 ) /12. 

DOM<2.7) = C-SNUX-GV1*SNUY*GX1)/12. . ... 

OUM(?,2) = -SNUZ*TUSNO*GX 1 /I 2. 

DUM(3.3) = SNUZ*TUSND*GZ1 /I ’ . ♦ SNUY* TUSNO* GYl /I 2 . 

DUM(H,5) = -SNUZ*' r USMD*SIN(THGYl)/12. _ . 

D'JM( 3,6) = SNUY*TUSN0*S!N(THGZl)/12. 

DUM(3,7) = {-SMUY« GZ 1 *SNUZ*C,r 1 ) /12. 

DUM(4,i) = GXY( GY 1 , THG X 1 , ALU ) 

DUM<4,2) = GXSYl-SNUY, THGX1 ,-SNUX.GYl . THGXl , ALU) 

DUM( 4,3) = GX»HI(-SNUZ,GY1 ,TWGX1 ,-SNUY,GZl ,THGX1 ,AL'J) 

. . . D'JM (4,4) = -1. 

DJM(5, 1) = GYY( THGY1 , ALU) 

DUM (5,2) = GY5Y<-S'JUY,GX1 ,th 5Y1 ,-SNUX.THGYl ,ALU) 
DUM(5,3) = GYPHK -SMUZ, THGY1 ,-SNUY ,GZl .THGYl ,ALU) 
DUM15.5) = -1, 

DUM(6.1> = GZYC ~Y 1, THGZ1 .ALU) 

DUM (6,2) = GZ5> . ••5'JUY.GXl »THGZ1 ,-SNUX.GY! , THGZi , ALU) 
DUM( 6,3) = GZPHK-S^UZ.GYl ,ThGZ 1 ,-SNUY.THGZl .ALU) 

DUM( 6.6) = -1. 

IF(KODE( 10 ) .F0.2) GO TO 1010 
CALL DPCSN(THFTA) 

Q=.5*RHO*VD*VO 

ALUi = ALUM . 

CALL ST INT ( Q » ALU 1,0, 1 . 1 .TUSN1 , NG ) 

IF(NG.NE.C) GO TD 5000 
ALU2=ALU-1. 

CALL ST INT(0. ALU2.C , 1 , 1 .TUSN2.NG) 

IF( NG ,NE , ? ) GO TO 5CCC 
GO TO 500 1 

500" IT = ( IM.50C2) NG , A LL » ALU , G 

5005 F0PMA»( •ERRDB IN SNU3BEF TABLE 1 * NG = • » I 2 t 3 X c 10,3) 

RFTUGN 

5001 CONTINUE 

AK T U*( TiJSN i-TUSN2)/2. 

AKSNU=AKTU 
1013 CON'INUF 

0*»M( 7, 7 » = - 1 . 


SYSTEMS 

CA 0 OC 300 
CABC C 400 
C ABO C 4 1 0 
CA 3 CC 42 C 

CADC C 430 

CABCC 440 
CAD 0 C 450 
CA 3 CC 46 C 
C ABC 04 70 
CAB 004 RG 

Cabo c 4 7 c 

CA30C5C 0 
C ABC 0 5 1 C 
_CAbC C 52 C 
C ABC 0 53 0 
CAB 0 G 54 C 
CABCC 550 
CABCC 560 
CABO 0 57 3 
CABCC 53 C 
CA 80 C 5 QC 
CABO 0 60 C 
CA 90 C 61 3 
CABCC 62 C 
CABC C 63 C 
CABCC 64 C 
CABC 0650 
CABCC 66 C 
CABCC 670 
CABC 0 * 5 " 
CA 9 CC 6 O 0 | 
CABCGTCC | 
CABC C 7 1 C | 

CABOC 720 | 

CARO 0 730 | 

C ABC C 74 C J 

CAB 0075 C J 
CABOC 760 I 
C ABO 0 770 
CABC 0 790 
CABCC 7 PC 
CABO C °C " 
CaBOCBIC 
CABCC 8 ? C 
CABC 0830 
CABOC 34-3 
CA 9 CC 350 
CABC C 3 6 C 
CABO 0 J 70 
CABC C 88 ' 

CABC C 470 
CABC 0 PO 0 
CABC " 7 ! O 
CABO" PC 
CABO CO?" 


& 


ue 




. e ILEO. CA3lE FnCTPAN T1 ... GRUMMAN DATA SYSTEM 



DUM (7,5) = 

AKSNU* 12. 

C ABC C 94C 


DUM( 8, 1 ) = 

ALY( GY 1 ) 

C ABC C -)5C 


0 UM(a, 2 ) = 

ALSY( -SNUY.GX1 .-SNUX.GYl ) 

CAOOC96C 


DU M ( 5 » 3 1 = 

ALPHK-SNUZ.GY1 ,-SNHY.GZl ) 

CABCC97C 



DtJM( R, 9) = 

-l. ... . . 

CARD C 950 


1 F ( KODE ( 10 ) 

.EQ.t) GO TO 1015 

CABC C SO'* 


01 1 0 1 A 1=1 

. 3 

CABC 10CC 


DO 1016 J- 1 

. 3 

CABC 1010 

1 0 t 6 

S N'JD( I . J )=DUM< ! , 7 '*ADSNU*DUM( 8% J) *1 2. 

cab: i ?2C 

1015 

CALL M ASH( 3 

,5) 

CABC 10 3 0 


DO 1 0 50 1=1 

. 3 

CABO 1 0 40 


00 105'"' J=1 

, 3 

CABC 1 CSC 

10 5C 

T 0°f? ( I , J ) = 

DUM ( I, J) 

CABC 1C6C 


I “( <0DE( 101 

• E 0 , 1 ) CALL 0=CUSN( THETA) 

CABC 1070 


dum( 1,2) = 

- TUSNO* GX 2 

CABC ICBC 


DUM( 1,3) * 

.-USNO*G?l 

CABC 109C 


OHM ( 1,5) = 

-TUSNC* SIN( THGY2) 

CABO 1 ICC 


DUM( 1,7) = 

GY 2 

CABC me 


D’JM (2,2) = 

SNUX*TUSNQ* GX2/1 2.- SNUY* TUSNQ*GY2/1 2 . 

CABC 1 1 2 C 

. ... 

D'JM ( 2, 3) = 

-SNUX*TUSN0*GZ2/12. 

CABO 1 1 3C 


OUM(2.4) * 

SNUY»TUSNC* 5 IN ( THGX2) /I 2 • 

CABO 1 14C 


DUM( 2, 5) = 

SNUXATUSNO* SIN ( TWGY2)/1 2. 

CABO 1 l 50 


DUM<2,7) = 

( -SNUX*GY2-SNUY*GX2)/12. 

CABO HOC 


OUM( 3, 2) = 

-SNHZ*TUSNQ*GX2/1 2. 

CABO 1 1 70 


OHM { 3,3) = 

SNU**TUSNO*GZ2/l 2.-SNUY* TUSNO* G Y2 /I 2 . 

CABC 1 150 

„ 

0'JM( 3,5) a 

-SNUZ* TUSNO* S IN ( t H G Y 2)/l 2. 

CABC 11 PC 


DUM( 3,6) = 

— SnUY *T'JSN0« S I N < ThG Z2 ) / I 2 * 

CABC 1 2CC 


0UM(3,7) = 

( SNUY*GZ2*SNUZ*GY2)/12. 

CABC 1210 

. „ 

JDUM( A, 1) = 

GXY( GY2. THGX2.ALH) 

CABC 1 22C 


OJM< 4,2) = 

GXSY( SNUY,TMGX2,-SNUX,GY2 , THGX? ,ALU) 

CABC ! 2 3 C 


OHM (4,3) = 

GXPHI(-SNU?,GY2,t h GX2.SNUY.GZ2 ,THGX2 ,ALU) 

CABC 1 240 

_ 

DHM ( 4,4) = 

- 1 . 

CABO 125C 


DHM( 5, l ) = 

GYY ( THGY 2 , Al. U) 

CABC 1 260 


DHM( 5,2) = 

GYSY{ SNHY.GX2, THG Y2 , -SNUX , THGY2 ,ALU) 

CARC 1 270 



DUM( 5,3) = 

GY°H I( -SNUZ , THGV2 , 5NUY.GZ2 , THG Y2 , ALU) 

CABC 1250 


DHM( 5,5) = 

- 1 . 

CABO 1 29C 


DHM' A, 1 ) = 

GZY( GY 2, THGZ . A LU ) 

CABO 1 30 0 


DUM( 5,2) * 

GZSY( SNUY, GX2 , THG Z 2. -SNUX ,GY2 ,THC, Z 2 , ALU) 

CABO 1210 


DUM{ 6,3) = 

G7PHI(-SNUZ.GY2,THGZ2.SNUY.THGZ2 • ALU > 

CABO l 320 


OHMC 6,6) = 

- 1 . 

CABC 1 330 


IF(K0PE( 1C ) 

»EO • 2 ) GO TO 1C20 

CABC 134C 


CALL OFCSMf THETA) 

CABC l 350 


ALUl=ALU+l . 


CABO 1 360 


CALL STINT (0, ALU 1 ,0 , l , 1 ,TUSN1 , NG ) 

CABC 137 0 


IFtNG.NE.O > 

GO TO 50C 0 

CARO 1 350 


ALU2= ALU— 1 . 


CABC 1 390 


CALL STINT ( 0, ALU2 ,C ,1,1 ,TUSN2,NG) 

CABC 1 ACC 


l c ( NG ,NE ,C ) 

GO TO SOCO 

CABO 1410 


AKTH=( TUSN l 

-TUSN 2 ) / 2 , 

CABC 1420 


AKSNU= AKTy 


CABC 1470 

1020 

continue 


CABO 1440 


OUMC , 7) = 

- 1 . 

CABO 1450 


OHM (7,4) = 

aksnum?. 

CABC 1460 


OUM( A, 1 ) = 

ALY( GY 2) 

CABC 1 4 7.- 


OUM(A,2) = 

ALSY< SNUY ,GX2» — SNUX , GY2 ) 

CABC 145- 
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-FILE3 CABLE FORTRAN Tl 


GRUMMAN DATA 


SYSTEMS 


0'JM( 9,3) = AL°Hl(-SNUZ,GY2. SNUY ,G Z2 ) 

DUM(8,fl) = -1. 

IF(KODF( 10 ) #£0 • 1 ) GO TO 1025 
00 1028 1=1,3 

DO ’ 726 J*1.3 . .. . . 

1026 SNUD(I.J) = SNUD< I « J ) OUM( I , 7 ) « AD SNU* DUM ( 5 , J) *12 . 

1025 CALL M ASh( 3.R) 

DO 1060 1=1.3 . . 

DO 1060 J=1 . 3 
1 C63 T0PL(I.J1= DUM(I.J) 

IFIK0DE( 10) .EQ.l) call DRCu :N( THETA) 

DUM(1,?) = - T L 5ND* GX 3 
DUM (1.3) = TLSN0*G?3 

DUM (1,5) = -TLSN0*SIN( THGY3) 

DUM( 1,7) = GY3 

DUM<2.2> = SNLX*TLSNO*GX3/l 2 . - SNLY* TLSNO*G Y3 /J2 . 

DUM ( 2.3) = -SNLX*TLSND*GZ3/1 2. 

0UM(?.4) = SNLY*TLSN0*S1N(THGX3>/12. 

DUM (2.6) = SNLX*TLSNO* SIN( THGY3) /I 2. 

DUM( 2,7) = C-SNLX*GY3-SNLY*SX3)/12. ... 

DUM( 3,2) = SNLZ*TLSNO*GX3/12. 

OUM{ 3.3) = -SNLZ*TLSNQ*G?3/12.-SNLY*TlSN0*GY3/12. 

DUM{ 3.5) = SNL2*TLSM*:* S1N( TMGY3)/12. 

OUM ( 3,6) * -SNLY*TLSNC*SIN{ThGZ3)/12. 

DUM ( 3.7) = <SNLV«G73-SNLZ*GY3)/12. 

DUM(4,1) = GXY( GY3. THGX3.ALL) 

DUM{ 4,2) = GXSY( SNLY .TKGX3.-SMLX.GY3 .THGX3 .ALL) 

DUMJ4.3) = GX°H I ( 5ML Z ,GY3 , THGX3 « SNLY « GZ3 , THG X3 » ALL ) 

... DUM( A, A) a - 1 . 

OUM( 5,1) = GYY( THGY3.ALL ) 

D'JM l 5,2) = GYS y ( SNLY , GX 3 , THG Y3 « — SNLX , TUG Y3 , ALL ) 

DUM(5,3) = GYPHK SNLZ.THGY3, SNLY, GZ3.THGY3. ALL) 

OUM( 5.5) = -l. 

OUM (6.1) = GZY( GY3.THGZ3.ALL) 

O'JM (5,2) = GZSY( SNLY, GX3.THGZ3, -SNLX ,GY3 .THGZ3, *LL) 

DUM(6,3) = GZ D H I ( SNL Z » GY 3 , THG Z 3 , SNLY , THG Z3 • ALL) 

DUM(6,6) = -1. 

IF(K0DE( 10) .E0.2) GO TO 1C3C 
CALL DRCSN( THETA) 

ALL1 = ALL«-1 . 

CALL ST| N T(Q,ALLl,C,l, 1.TLSN1.NG) 

IFCNG.NE.'M GO TO 50C0 
ALL 2= ALL-1 . 

CALL 3TINT(0,ALL2.C,l, 1.TLSN2.NG) 

IF(NG.NE.C) GO TO 5000 
AKTL = < TLSNI-TLSN2) /2. 

AX5NL = AK Tl 
1030 CONT JNU” 

DU M < 7 , 7 ) = -i, 

OUM (7, (?) = AK SNL *12. 

DUM ( A , 1 ) = ALY( GY3) 

DUM<".2) = ALSY( SNLY, GX3. -SNLX, GY3) 

OtJMM.3) * AL a Hl< SNL 7 » GV 3, SNL Y , G73 ) 

OUM ( 3,6) = - 1 , 

I r (KrOE< IS ) ,50,1) G3 rn K35 


DO 1060 J 

= 1 

1 C60 TOPL( 

I. J) 

3 

I F( <OOE( 1 

0 ) 

DUM ( 1 

. 2) 

= 

DUM ( 1 

. 3) 

3 

. . DUM ( 1 

. 5) 

3 

DUM ( l 

.7) 

3 

DUM ( 2 

. 2) 

3 

DUM(2 

. 3) 

3 

DUM( ? 

.4) 

3 

DUM ( 2 

. 6) 

~ 

... DUM( 2 

.7) 

3 

DUM< 3 

. 2) 

3 

DUM ( 3 

.3) 

3 

DUM< 3 

. 5) 

3 

OUM ( 3 

• 6 ) 

3 

DUM ( 3 

. 7) 

3 

DUM( 4 

. 1) 

3 

DUM{ 4 

. 2) 

= 

DUMJ 4 

. 3) 

3 

... DUM( 4 

, A) 

= 

0UM< 5 

. 1 ) 

3 

O’JM ( 5 

.2) 

3 

DUM( 6 

. 3) 

3 

OUM( 5 

.5) 

3 

OUM ( 6 

. 1 ) 

3 

O'JM ( 5 

, 2) 

3 

DUM( 6 

. 3) 

3 

OUM( 6 

,6) 

3 


- 1 . 

AKSNL* 12. 

AL Y ( GY 3 ) 

ALSV( SNLY.GX3.-SNLX.GY3) 
AL a Hl( SNL7.GV3.SNLY.G73) 

— I • 

» EO » 1 ) GO Tn l C 3 5 


CABO 
CABO 
C A DC 
CARO 
C ABC 
C ABC 
C ABC 
CABC 
CABO 
CABC 
CABC 
CABC 
CABO 
CABC 
CABC 
CABC 
CABC 
CABO 
CABC 
CABC 
CABC 
CABC 
CABC 
CARO 
CABC 
CABC 
CABC 
CABO 
CABC 
CABC 
CABO 
CABC 
CABC 
CABC 
CABC 
CABC 
CABC 
C&BC 
CABO 
CABC 
CABC 
CABC 
CABC 
CABC. 
CABO 
CABC 
CABO 
CABC 
CABO 
CABC 
C ADC 
CABC 
CABC 
CABO 
CAB' 


1 490 
1 50 0 
1510 
1520 
1 530 
! 54 0 
1 550 
1560 
IS^O 
1550 
1 5BC 
1 C 
1610 
1620 
16 30 
) 64 C 
1650 
16*0 
1670 
1680 
1690 
1 70 f 
1710 
1 720 
l 7 B C 
1 740 
1750 
1 76C 
1770 
1 760 
1700 
l 80 C 
1510 
1620 
! S ’0 
1 54 0 
1 *5C 
1 660 
1 870 
1 BBC 
1890 
1 900 
19 .0 
1620 
1930 
t - ‘0 
1 50 
I960 
1970 
I960 
1 

2CC C 
20 1 0 
2C ?C 

5 ^ 


1 



PILCC CABLE 


00 IC36 1=1,3 
00 1036 J = 1 » 3 

1036 SNU0I I . J )=SNUD< I, J )«U»{ I , 7) * AD SNL* DUM { 8 . J > * 1 2 . 
1035 CALL VASHI 3,8) 

00 1C 70 1=1.3 .. ___ .... 

OO 10 70 J=l,3 
1075 POTL(I,J)= OUM ( I . J ) 

IF(KOOE( 10) ,E0. 1 ) CALL D«3CUSN( THE TA ) 


CABO 2'* 4 0 
CABO 20 5C 
CABO 20 60 
CABO 20 70 
CABC 20 30 
CABC 20 30 
CABC 21 OC 
CABO 2 1 10 


OUM I 1 

.2) = 

-TLSNO* GX4 


CABO 21 20 

0 JM{ 1 

. -*) = 

TLSN0*G24 


CABC 21 30 

0*JM(1 

.5) = 

— TL SNO* SI N ( THGY4 ) . .... _ 


CA3C2! AC 

OUVf 1 

.7) = 

GY 4 


CABC 21 5C 

OUV* 

„ ) = 

SNLX^TLSN0*GX4/12.+SNLY*TLSN0*GY4/12. 


CABC 21 6C 

OUM{ i: 

. A) = 

-SNLX*TLSNC*G7 6/1 2. 

_ _ 

.. CABC 21 7 C 

OUM< 2 

.4) = 

- SNLY*TLSNO* SIN ( THGX4) /I 2 . 

- 

CABC 21 SC 

OUV( 2 

.5) = 

SNLX*TLSNC«SIN< THGY4) /l 2 • 


CAB0219C 

OUM 2 

.7) = 

<-SNLX*GY3*SNLY*GX4)/l?. 



CABC 2 7 0 0 

DUM( 3 

.2) = 

SNLZ = ' r LSNO*GX4/l 2. 


CA9C 2? 1C 

OUMI ~ 

, 7) = 

-SNLZ*TLSN7*G74/:?. + SM_Y*TLSN0*GY4/12 . 


CABC 2220 


. 5 ) = 

SNLZ*TLSNC*SINI THGY41/12. .. 


. CABC 22 30 

DUMI 3 

.6) = 

SNLY* TLSNO* SIN I THGZ4) /12 • 


CABC 22*0 

OOM( 3 

.7) = 

( — SNLY* GZ 4- SNLZ*G Y4 ) /I 2, 


CABC 2200 

DUMI 4 

t 1 ) = 

GX Y( GY 4, THGX4, ALL ) . 


... . CABC225C 

0UM{4 

.2) = 

GXSYI-SNLY, THGX4 ,-SNLX,G Y4 ,THGX4 , ALL ) 


CABC 2270 

DUMI 4 

, 3 ) = 

GX»H!< SNLZ,GY4,TsGX4,-SNLY,G74,THGX4 , 

ALL) 

CABC ? 2 BO 

DUMI 4 

. 4 ) = 

-1, . 



CABC 22 70 

DUMI 5 

, 1 ) = 

GYY(THGY4,ALL) 


CABC230C 

OOM( 5 

,2) = 

GYSYI- SNLY.GX4 ,THGY4,-SNL X, THGY4 , ALL ) 


CABC 23 1C 

CJMt 5 

.3) = 

GYPHI I 3NLZ • THG Y4 . -SNLY ,GZ4 • THG Y4 • ALL) 



. CABC232C 

DUMI 5 

,6) = 

-1. 


CABC 23 ? r 

0 JM( 6 

, 1 ) = 

GZYI GY4.THGZ4.ALL) 


CA5C234C 

. . DJM16 

.2) = 

GZ SY I — SNLY , GX4 , THG Z4 .-SNLX.GY4 ,THGZ4 , 

ALL) 

CABC 235C 

DUMI 6 

.3) = 

GZPHK SNLZ.GY4, THG Z4,- SNLY, THG Z4 .ALL) 


CABC 2 3 60 

OUM 6 

.6 ) = 

“ 1 • 


CABC 2370 

I e l KODE ( 10 ) 

.50.2) GO TO 1 C 4 0 


CABC 23'?'“' 

CALL 

OCCSNt THETA ) 


CABC 2390 

ALL 1 = 

ALL M . 



CABC .24 CO 

C ALL 

stintiq, all i , c , 1 . i.tlsni.ng) 

_ 

CABC 24 1C 

IM NG 

• NE.O ) 

GO to 5000 


CABC 2420 

ALL 2 = 

ALL-1 • 



CABC 24 30 

.... CALL 

STINTIQ, ALL2.C.1.1.TLSN2.NG) . 

. _ 

CABO 2440 

IFC NG 

,NE.r ) 

GO TO 500 C 


CABC 24 5C 

AKTL 

=(TLSNl-TLSN2)/2, 


CABO 24 6 C 

AKSNL 

= AK TL 



CABC ?4 7C 

1040 CONTINUE 



CABC 24 85 

DUMI 7 

.7) = 

-l. 


CABC 249C 

OUM (7 

,8) = 

AKSNL* 12. 


CABC 2530 

OUM ( 9 

. n = 

AL Y ( GY 4 ) 


CABC 2S 1C 

DUM( 8 

.2) = 

ALSYI-SNLY,GX4,-SNLX,GY4 > 


CABC 2520 

OUM (8 

1 V ) S 

ALPHK SNLZ.GY4.-3NLY ,GZ4 ) 


CABC 2530 

D'|M( B 

, F) = 

- 1 . 


CABC 264-: 

I F( KODE ( 1C ) 

.EO.t) GO TO 1045 


CABC 2550 

00 1046 1=1 

,3 


CABC 256* 


1046 


00 1546 J= 1 , 3 

BN J 0 I I. J) = SNUn( I. J lOUMtl , 7 ) * A D SNL * D UN ( 8 , J ) * 1 2. 


CABC 257? 
CABC 26 AC 
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I 


I 


I 


F 1LE0 CA3L ! 


FOFTPAN T 1 


GRUMMAN DATA SYSTEM 


1045 CALL MASH(T.B) 

DO 1090 1=1,3 
DO 103^ J = l » 3 

10S0 BOTP(I,J)= DUM( I.J) 

DO 10OC 1=1,3 - 

DO l cor J = 1 , 3 

1090 SNU (I,J)= T3PP( I, J)4T0PLII , J)+90TL(I , JI+BOTRC I . J» 
1”{<0DE( 1C ) «EQ • 2 ) RETURN . .. 

DO icqs 1=1,3 
DO 1095 J=l, 3 

1 OSS SNUD! I . J ) = 0 _ _ 

return 

IOC 3 DO 1 3 "*4 1=1 , 3 

DO 1 C C 4 J= 1,3 ... -- - 

SNUD( I, J 1 = 0 
1004 SNU( I, J )=C 

RETURN 

END 

SUBROUTINE TO 1M 


C4BC259C 
CABC ?60C 
CABC 26 1C 
CA302620 
CABC 2630 
C4BC 264C 
CABO 2650 
CABO 2660 
C4BC 2670 
CABC 2630 
CABC Z 5 90 
CABO 27 OC 
CABO 2710 
CA5G272C 
C ABC 27 "*0 
CABC 2740 
CABC 275C 
CA9C276C 
CA3CC0 10 


CABLE 

SUSPENSION 

SYSTEM 

TRIM FOUTINE 

- 

- . - — . 


CABC C 0 2C 

COMMON/INOUT/ IW. 19 







CABC CO 38 

COMMON /DAT/ AEBO( 1751 . AE9DP( SO) ,KD0E(26» ,LL 




CABCCC4C 

..COMMON / 

3 '_YCHA/9Tr.XLGTH(5) , ADC (5, 3) .ARM! 5 ,3) .TR.TLFT, 

TF . 

_ 

CABO C 0 50 

D I MENS ION 

ANG! 5,3) 







CABCC 060 

EQUIVAL ENCEt AECO( 

1 ), 

COU) 

, ( AERO( 2 ) • 

CLU) . 

(AERu! 31, 

CMU) . 


CA9CCC70 

1 . 

<AERO! 

4), 

COA ) 

.(AERO! 5), 

CLA ) , 

(AE9Q! 6), 

CMA) , 


CABC C 0 3C 

2 

(AEFOl 

7), 

CDQ ) 

.(AERO! 8), 

CLQ) , 

(AEROC 9), 

CMQ), 


CA80C09C 

3 

(AERO! 1C ), 

COO ) 

, ! A-P 0! It ) , 

CLC) , 

( AERO ( 12) , 

CMO) , 


CAHCC ICO 

4 

(AERO! 13). 

CODE) 

,( A'RO(lA) . 

CLDE) . 

( AERO ! 15 ) , 

Cf-'DE). 


CA3CC1 1C 

5 

< AER 0 ( 16). 

CQAD ) 

. ( A-RO! 17) ,CLA->) ,( 

AECf)( 13) ,CMAO) , 


CABCC t 20 

6 

(AERO! 19), 

C YE ) 

,! 4-30(20 , 

CLQ ) , 

( AEPO (21 ) * 

CNB) , 


CaBC r I to 

7 

! AERO! 22), 

CYP) 

, ! AERO ( 22 ) , 

CLP) , 

( AERO ( 24 ) . 

CNP) . 


CASOC 140 

B 

! AERO! 25). 

CYP ) 

, ( A = 90(26) , 

CLP ) . 

( AEP0(2T ) , 

CNR ) . 


CABCC 1 5 A 

9 

(AERO! 28), 

C YDP ) 

,! AERO( 29) , 

CLD9) , 

( AERO< 30 ) , 

CNDR) . 


CABO C I SC 

A 

(AERO! 31 ), 

Crni ) 

, ! AERO( 32) , 

CLC a ) , 

( 4E C 0 ! 3 ? ) . 

CNCA) , 


CABCC I 7C 

B 

! AERO! 34) . 

CYDS > 

.! AERO ! 35 ) . 

CLOS ) , 

( AERO( 36 ) , 

CNDS) 


CABC C 1 60 

EQUIVAL ENCE(AFRCt 46), 

XCG) , ( AC~0< 47) ,7CG> 




CAB r c I 98 

EQUIVALENCE! AEPO 

( 48) 

,1MACH 

) , ( AE°0 (49) 

, VO 

) .(AFRO (5 

C), AM) 

CABCC 2 00 

EQUIVALENCE! AERQ 

(El) 

, PHD 

).(A5R0 (52) 

• WT),(AERO (53), R 

) 

CABC 0210 

EQUIVAL ENCE! AEPO 

( 54) 

, CBAR 

),(AEO0 (55) 

, S« 

»,(AERO (56), XIXZ) 

CABC C 2 <?C 

EQUIVALENCE! AECQ 

( 57) 

» X IXX 

),(ARo o (5fl) 

, YI YY 

) , ( AE PC (59),7IZ? 

) 

0300230 

EQUIVALENCE! AERO 

( 6C ) 

, CLT 

).!APPO (61) 

.COT 

),(AERO (62), CAT 

). 

CABCC ?4C 

1! AERO! 63) 

.theta ) 








CABO C 2 50 

EQUIVAL ENCE! AEP O 

! 66 ) 

, WHJF 

) , ! A^P0(67) , 

«LLF) 

* ! AF 90(6 8) 

. WLJO 


C ABC C 260 

l 

! AEPO 

(69) 

, WLLP 

> , ( AEFP<7C> , 

YLH p ) 

, ! AR 90! 7 1 ) 

, *LHR) 


CABCC 270 

2 

(AEPO 

( 72) 

, ST A F 

) , ! AEPO! 73) , 

STAR) 

, ( AE C 0(74) 

, PLMF) 


C ABC C 280 

3 

(AERO 

( 75) 

. blhc 

) , ! AFRO! 76) . 

WLCR) 

.(AE90I7T) 

.STACP) 


C ABC " 290 

4 

(AERO 

( 78) 

, 9LC R 

) , ! AERO! 79) , 

EF) 

• ( AE90! 80 ) 

. EC ) 


CABCC70C 

5 

( AERO 

( 81 ) 

, AF 

) , ! A-RO! 82) , 

AR) 

.( AFP0183) 

. HUC e ) 


CAOCC310 

6 

(AERO 

( 84) 

, HLCR 

) , ! AERO! 85 ) , 

HUCe > 

,< A5P0(86) 

. HLCP) 


CA''CC3?C 

7 

(AERO 

( 87 ) 

, DCF 

) , ! AERO! 88) , 

OCR ) 

, ( AF RO( 89 ) 

. ALE) 


C A«C C 7 3C 

8 

(AERO 

( 9C ) 

, 9 VF 

) , ( AR90! 91 ) , 

9 HF ) 

,( AE90(92) 

, PVR) 


CABC f. 34C 

9 

( AERO! 93) , 

CHR ) 

,(AP0r|(O4) , 

TRQ) , 

( AEO0 (Q5 » , 

A*R ) , 


CABC »■ 350 

A 

(AEC0(96), 

AL= 0 ) 

, ! AFRO! 97) , STLTT ) , 

( AERO (98 ) , 

XLLTT ) , 


CABC C 368 

P 

(AERO! 99) . 

tl c t: ) 

. ( ' r R0 ( ICC > . 

AKL C T) 

, ! AE C 0(1 01 ) , ALLT C 

) , 

C arc C 3 to 
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1 


J 


RILEO CA3L 1 


POKTFAN Tl 


G R U M M *. N DATA S Y S T E m Fi 


C (AERQ(tC2> 

EQUIVALENCE! 4E=QP( II 


AL T X ) . { 4EPOOC3) .ALTZ) 


c xur ) • C AE C OP ( 2). CZUP) 

1 (AFC03< 4). CXAPt,(»^cnci( 51, CZAP) 

2 (AEPOP( 7), CXOP) ,(AEPOP( ft), CZQP) 

3 (AERQR(IO), CXO®) , ( AERQ®(1 1 ) • CZOP) 

4 (AS c O®( 13>.CXD c ®).(A = BC , P(14),CZOE®) 

5 ( AEF O n ( 16) .CXAO®) . (A = K(jP( 17) ,C?AO®) 

6 C AE B 0° (19), CYBP) ,(A = CCP(20) , CL6P) 

7 ( AFPQP (22), CY®P) . ( AERQP(23) * CUPP) 

8 ( AERO® { 25) * CYPP) . ( AERQP( 2ft) . CLP®) 

Q ( AFCQ®(2A) ,CYQRC) , (AEPQP(29) ,CLOR®> 

A f AFPQO( 31) , CYOAP) . < AEO n P< 32) » C LD AO) 

B ( AERDPC 34) .CYOSP) . ( A«ro( 35) ,CLDSP) 

RTD=57.2<J58 
T HE t A =C . 

DELALPa.OC! 

0' r F= . 1 
D4LFA«=C .C 
OOELYP=0 .0 

.. DTHCST=C.O . - — - - - 

ICNTP=C 
FI PST =0 . 

THlNTsC • - - 

ALFInT=-HFTA 
DEL !MT=r , 

THPS^OsTHINT 

t IF( V3.E0.T. )THRSTO=-TP*CCOS(ADC{3.1) )+cosiadcc 
1 )«-CQS( AOC( 2,1 ) ) ) 

. VAL5=CGS(A0C( 3, 1) ) 

VAL*=COS( ADC< 4, 1 > ) 

VAUY=COS( AOC( 1, 1 ) ) 

VALft=CrS(ADC( 2,1)) 

AUFA»TD=AUFINT 
DELTFQ=OcL INT 

qs=rho*vo*vo* , s*sw 
209 THCST I =THP GTT+OTHCST 
AL C AW I = ALF AWO+OAUFA W 
OEL^EI = DEL TED ♦DDEL' r E 
ICN T P= ICN'P+1 
I®( ICNTP.GT.lOO)GO TO 520 

VAL1=ALFA4I*P T D 

V AL 2 - DEL TE I *R TO 
VAL3 = THPSTI 

CALL EQU{ AL e A'4 I , DEL TE I ,THCSTI ,=3, GO, HQ, FIRST) 
IP ( VC.NE.3 ..OR ,FI= ST.NE.O, ) GO TO 2 
FtPSTsl . 

GO TO 1 

2 IF(=IPST.NE.l, )FIQST=1 , 

COMPOTES PAOTIALS 

ALF4WI=ALFAWI ACELALF* C .5 

CALL EQVK AlFAh* I , QFLTE I , THPSTI ,F 1 ,G1 ,H1 , 1 . ) 

ALF AM I=ALF4W i-oelalf 

CALL EOU( AL FAW I , O c L Tr I .ThCSTJ ,p ? , G2 ,H 2 ♦ l • > 
AL c A4lrALPA»»lT0 e LALF*C .5 
P 4L=»’0 = ( Fl-F? ) /DFL A L c 


(AERQP 

< AE POP 
C AFPOP 
( AERQP 

< AERQP 
C AERQP 
( AEPOP 

< AERQP 
C AEPOP 
(AERQP 
(AERQP 
(AERQP 


( 3) 
( ft) 
( 9) 
( 12 ) 
( IE ) 
(18) 
(21 ) 
(24 ) 
(27) 
(33) 
(33) 
Oft ) 


C iJP) , 

'MAP) , 

CMQO) , 

CMQP) , 
CMDEP) , 
CMAOP) , 

CN3® ) » 
CN»P) , 
CNFP), 
CNQPD) , 
CNDAP) , 
CNDSP) 


4, !)))/( COS (AOC( 1 ,1 


C4R0C380 
CA3CC39C 
CAPC040C 
CA300410 
CABCC42C 
CABCC43C 
CAB00440 
CARC0A5C 
CA0OC46C 
C4BCC47C 
C4®C 04 AQ 
CAB<* 0 4 90 
C ABC C 500 
C4BCC51C 
CABO 0 52 C 
CABO 0 53 r 
CABCQE40 
CABO 0550 
CABO 05ft 0 
CAB00570 
CAB00580 
CA8CC59C 
CABOCftOC 
CABO C 61 0 
CABCC620 
CABCC63C 
) CABO O ft4C 
L ABC CftSO 
CABO C 660 
CABOCftTC 
CA9C068C 
CABC 0690 
CAB0C70C 
CABC C 71 0 
CABC C TEC 
CABO O 730 
CABOC^AC 
CAB r 0 T5C 
CABCC76C 
CABC 0770 
CABO 0 790 
CABC079C 
CABOCftOC 
C ABC C ft 1 0 
CAB0082C 
CABCC83C 
C ABO 0 840 
CABC CftSO 
C4Q0 OftftO 
CABC •“ 870 
CABC CftSC 
CABO 0ft9C 
CABC C9CC 
CAB' OoiC 
CABC 0R2C 
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1 


1 


1 


1 


1 


1 ; I 

r ILEC CA9UE c ORTRAN T1 


GRUMMAN DATA S * S T E 


GALF*0=( Gl-G2l/OELAL e 
HAL^WOsI HI-H2 J/DELALF 

FOEtEOs-OSM CLDF«CCS< ALFA WI )*COOE*S 1N( 4 L c A«I ! ) 
G9ELEO=Q5* ( CLD£*S IS < ALF4W I !-CODE*COSI ALF Aw I ) ! 

HDELE0 = 05*C9aP*CMCE -------- - 

T MR 3T I -THC ST I 4-DTF 

CALL EOU( 4L P AW I , DFL TE I . THF ST I ,F 1 ,Gl .HI .1.) 

THF5T I=Th= STl-2.*D'F 

CALL EQU( AL^Adl .DEL T E I , THF STt.F2.G2.H2.1.) 

THCST I=TH» ST I ♦O TF 
C *H5T: = ( FI-F2 )/(9Tr*2. ) 

G”H3''"! = ( Gl-G21/<D- e *?. > 

HTHST2=< H1-H2 )/(0 T F*2. ) 

C SE T UP iteration EOCUTIOnS 

F I = PO *F AL c 'WO* P ALF aw ♦P'C?LCC*90 er L TE ♦ sr ThSTC*0THQ3T 
GI = GD*GAlF nlC^DAL^ Ax* 4-GCFLE0*P0ELTE*GTHSTn*DTHRST 


CA2C C A3 C 
CASC 094C 
C4BCC05C 
CA8 r CQ*»C 

... CA6CCP7C 

CAB* C9B0 
CABC CP^C 
CABC 10 GO 
C ABC 10 1C 
CA9C 1C2C 
CABC 1C3C 

cab: ioao 

CABC 1 C 50 

CABC 106 r 

CA9C107C 
cab: i 3B0 


Hl = H r '4-HALFWr'*0AL p "AV* +HOFLE 9* CO *L TE *H TH S T0*9 THBST 

ACC7=FI/AM 

ACCX = GI/AM 

THE03” = Hl/v IYV _ - - 

I^CVO.EO.O. )GO TO 42 

IF< ABSC ACCZ > .LT ..Cl )GO to 1005 

GO TO 1 100 . 

10C5 I c ( 43SC ACCX ) .LT..C 1 )GO TO 1C07 
GO -0 1100 


CABO 1 0 PC 
CA30 l IOC 
CA3C111" 
. CABC 11 2C 
CAPC 1 1 3 C 
CABC 114 0 

CABC 115C 

CA9C 116C 
CAPO 1 170 


1 CC 7 I -( A BS( T HE DOT 1.LE.C.CC1) GO TO 42 
C NOW COMPUTE "ACAMETE= INC=F^ENTS FROM MATRIX EQUATIONS 


HOC DETswsF Ai_FMO*GO cr LFO*HTHSTO>FO = LEC*GTHSTO*HAL !r KO«-FTHST04GAL c WO* 

1 HOE , -E' , -F' r HSTn*G r >FLFP* HAL e 4 0-^ 4L e WC*3TH ST9*HBEL£O- c PELE0*G AL c »D* 

2HTH3T0 


CABC 1 19C 
CA9C 1 1PC 

cap: i2cc 
c A3“ i 2 i : 
CAB' p’f 


D4L c AW = t -( GDELFO*HTHSTC-GTHST-i*MOFLEO) *FO+(PO"LFO»H T H5T3- PT HSTO 


CABC 127'* 


:*HOE-EO)*GO>( FC er LEO*GTHSTC-"T-«STO*GCELEr) *H0 )/DE t ~m 
OOELTE = ( ♦( GALFW0*H t HSTC— GTHSTB-hAL^ WO) *PO- ( F ALF wO«HTHSTO-HALF* 0 
l*PTH3TC>*G3 +( FALFWB*GTHSTO-F ThSTQ*GAL p 'WO>*HO) /OETRM 


CABO 124C 
CAPO 1 250 
CABC 126C 


nTupcT = (_(GAiew<-!* H0EtE3-G"‘HLF?*'- , AL- WC> «FO* \ F AL p W0*M0ELF3-FDELEa 
1 *HALFaC ) *G3-< FALFW3*GrELEC-F*)ELEO*GAL« r WO ) *H 3 ) /n»T5M 
THRSTP = TH® ST I 

ALFAWO = ALFAWI . 

DELTEO=OELTEI 
GO TO 200 

520 WP I T E( IV*. 521 ) - 

521 r OS ■«! A r ( ' TP IM Iteration EXCEEDS LIMITS*! 

GO TO 522 

4? CALL EOUIALFAWI.DELTEI.THSSTI.FC.GC.HO.I.) 

522 DO 527 IZ7 = 1 » * 

OO 523 IZ< = 1 » 3 

AN G( 172. I7K ) = ADC( IZZ. IZKJ-STO 

523 CONTINUE 

T h: t A = AL FA W I 

de=deltei 

T=:'H‘ ST I 

THFTO=ThETA*BTD 

DFO=OE*a t 0 

DO 524 177 = 1 .4 

! = ( <P0E( 5) .EO .C ) GO TO 529 


cab: 127- 

CA9: 1 29-: 
CA5C 1 20C 
CABC 1 30C 
CABC 1310 
CARC 1 320 
- cab: 1330 
CABO 1 34<- 
CA30 1 35C 
CABC 1 350 
CAB: 1 370 
CAbC 1 39C 

cab: i 3^0 
cabc : 4C0 
CahC i - i c 
cab: 1 * 2 : 

CA9C 1 4 3C 
CABO 1 4 4 C 
c ar- : 49^ 

car: 145* 
CAB: ! 470 


J 

i 

I 

I 
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I 

i 


1 


1 


I 


ILEC C48LE PDCterAN T1 


Grumman oat* system? 


WP!T£< I w, 525) I??.XLGTH( 1 Z2) . (ANG! IZZ.I ZK) ,«SM( IZZ. IZO *IZK=: . 31 
525 r 3PM 4 T ( • C*3lE GEOm-C’' R Y-CaBLE nO. • . I 2 . 5X . • CABLE LEnGTh=* .E 1 5.6 . 

!• IN*./.3X,» DIP* C5S.=0EG »CM-IN',/,{3< ?X. 2=15. 6, /)»,//> 

524 CONTINUE 

I'XVO.EQ.C. )W»ITE( IW.529) 


CABC 143C 
CABO 149C 
CABC 15C - 
CABO IS! C 
CABC 1520 


529 f:p<AT(« COMPUTATION OF WIND O c e COND I TI ON. T9I M POUTINE NOT US ED* ) CA «C ! 5 7C 


ACCZ =■ *EI5 *8 
• PAD/SEC* ) 


<5tTC( lw,5?6 > ICNTF.ACCZ .ACCX. thEOOT 
526 c ?cyA*(‘ ITERATION PARAMETER = * * I 5* /* 2X * ' 

1/.2X. »ACCX =».E:5.8./.?X.»ThED0T=*,E15.8 
528 *R IT£( I4.5271TmET0,0ED.TF.TK 

5?7 p-?=M A”l //. »VEH. ATT .Oi c LTN,t CABLE TENSION*. /. 

! 2X » • t h£ t 4 =*.F6.2.* 3EG* ./.2X. *OELT* = *.F,-,.?,« DEG* ./ *2X 
2 .*fp- CAB. ▼ENSICN = » *F 15.6. • LBS*./. 

22X » • ~ - C*3. TENSION =*.E15.6.* LB S* > 

RETUPN 

OS.O’JG UN I t ( 3 ) • INITCVAL1.V4L2.VAL0.FI.GI.MI . 

1 F AL =■ A 0 , GA_ F wO . M4L F • 0 . c 0 E L c O . GO ELE O . HOE L5 3 . 

2 C ~ ST 3, GTHST? ,H' r H> T 2.04L=4»*.00 c LTE.0THPST, 

34 CC7 . ACCX.TH^OEJ' r .TC,v4L5. V*L6. VAL7. VAL8) 

end 

SUBROUTINE EQU! T HET A . CE » TF . F~ .GG .HH .F I 9 $T) 


CABLE SUSPENSION 
COMMON/ IN-'UT/ I W, ic 


SYSTEM 


rp I M EQUATIONS 


CABO 154 0 
CABC155C 
CABC 1560 
CABCISTr 
CABC 15BC 
CABC 159f 
CABC 1620 
CABC 1610 
CABC 1620 
CABC 1630 
CABC 1640 
CABC 1660 
CABC 1*60 
CABO 1670 
CABC CO 1C 
CABC C 
CA3C C0 3C 


1 

2 

3 

A 

5 


9 

q 

A 


COMMON /OAT/ *rRO( 176) . AECOP( SC » .KPDE! 

26) .LL 



CABC CCA C 

COMMON / F.YCHA/E 

TD.XLGTM! 5).42C! 5.31 , 

ARM! 5.3) 

. TR.TLFT, dummy 

C ABC C Z 5 C 

REALMS XNM l.X NM 2 . 

YNM I 

. YNM2 





CABCCC6C 

EQUIVALENCE! AFRO! 

1 ). 

COU) 

.(AE90! 2). 

CLU) . 


AERO! 3). CWJ), 

CABC CO 70 

(AEPO! 

4). 

CCA » 

.(AERO! 5), 

CLA) , 


AEPO! 6>, CM*), 

C ARC CC 

(AEPO! 

7), 

COO) 

, ( 'E ;r, ( 8). 

CLQ) . 


AERO! 9). C M Q ) . 

CABC c c ?: 

(AERO! 

1C ). 

coo ) 

. ( *E°0( 1 1 > . 

CLO) . 


AEROC21, CM3). 

C ARC C 1 “ C 

(AE=3! 13). 

COO- I 

. ( AERO ( 14) , 

CLOE ) . 


AEPO! 15 ) • CMOE). 

cabc c x : c 

( AE c O! 

16 ) . 

CCAO ) 

. ( AERO! 17) . 

CLAO) . ( AEPO! 19 ) .C*mO ) . 

CA3CC 1 20 

(AERn< 

19). 

C YR ) 

.( AE90(2C) • 

CLB) , 


4-RO(21). CN3), 

C A 9C C l 3 C 

(AER"M22>. 

CY°) 

. ( 4F9P!23> • 

CLP) . 


AEPO ! 24 ) . CNP). 

CABCC 1 4<" 

(AERO! 25). 

C YR ) 

» ( AERO ( 26) . 

CLR ) . 


AE=0(?T), CS=). 

CAS00150 

(AFco< 24), 

CYQR ) 

. ( 4^90(29) • 

CLOP ) . 


AER 0(3C ) , C\r=) . 

C ABC c is: 

( AERO! 31 ). 

C YD A ) 

. ( 4 r =Q ( 32 ) . 

CLOA) . 


AE=0(33). CNOA). 

CABC C 1 TC 

( AE C OI 3« ) . 

C YDS) 

. (AERO! 35) • 

CLOS) . 


AEPO(36). CNOS) 

CABC C 1 9C 

EQUIV4L ENCE! AE=0( 46). 

XCG).(AER0(47) .ZC 

G) 



CABO C 1 O'" 

EQUIVALENCE! AFRO 

I 43) 

, amach 

>.(AECO (49). VO 


.(AEPO (50), AM) 

CABO C 2 0 0 

EQUIV ALENCE! AE=0 

( 51 ) 

i-HO 

) .(AERO (52) . *T 


.(AE=Q (53). 3 ) 

C aBC C 2 1 C 

FOUIV ALENCE! AERO 

! 54 ) 

.CDAR 

>.(4ER0 ( 55 ) . S* 


.(AFRO (56). X I X 7 > 

CAB0C22C 

EQUIVALENCE! a -PO 

! 57) 

.X IXX 

) » ( AER O (58) . Y I YY 


.(A-CD (59J.ZIZ? ) 

CA 21 * 

EQUIV4L ENCE! AE=0 

! 60 > 

. C L T 

) . ( AERO (61 ) .COT 


.(AERO (62).CMT » 

CARO C 2A r 

EOUIV4L ENCE! AFRO 

! 66) 

. *LUF 

> . ( AEC'MC?) 

. WLLF) 


(AECO(64). WLUP). 

C ABC C 250 

i AERO 

! 69) 

, WLL C 

) .( AEFO! 70 

• KLH C ) 


( AFPOCM ) . XLHP) , 

CABCC24C 

(AEPO 

! 7 2 ) 

. ST4 c 

) »( s E e O (73) 

. S^AC) 


( AERO(74 ) . 4LH=) , 

CABC “2’" 

<AE=0 

! 75) 

. BLHR 

) . ( AERO! 76) 

. WLCR) 


( AE °0( 77) . S T ACR ) , 

CABC r 2.0* 

! AE®0 

! 76) 

, *?LC C 

) . ( AERC( 79) 

. EE) 


(AEPC(SC) . EC), 

C AriC C 2°C 

! AERO 

(91) 

. AF 

) , ( AERO! 82) 

. AC ) 


( AERQ(4T) , M U ^r) , 

CABC C 3* * 

! AERO 

( 44 ) 

, HLC r 

) , ( AEPC! 85) 

, MUCR) 


( AFRO! 9* ) • HLCR ) • 

CAGCC3;^ 

( A E c O 

( 67) 

. OC r 

) . ( A E c C ( 38) 

. OCR) 


( AEPO! 49) . ALP ) , 

CABC r 32C 

! A E c n 

! 90 ) 

. c VF 

> ,(AERC(91 ) 

. =MC) 


( ACRE! 9 2) . Rvc) , 


! A FR O! 9 ? ) » 

= 44 ) 

, ( 4Ecr< 94) . 

TR c ) . 


45=0(35), 4 5= >. 

- 24 * 

! AERO! 96), 

AL=C ) 

, ( i rt =r,(<)7) • 

ST L " T ) . 


A E R O ! 9 4 ) ,*LL TT > . 

CABC -* ’6' 
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’ " ILE 3 C 49_: E FOOTpAN T1 


GRUMMAN DATA S Y S T i •' 


B I AE c O< 9O).TLFT0).(A'SO(lCC) ,AKL |:T I » ( AE=0( l Cl > , ALLTC > » 

C tAE«=Ol 1C 2I.ALTX) • ( AERO (!C3> *ALTZ> 

D A T A XNMX.XNM2 /• VERTICAL*. *h-!C I ZnTL • / 

RTo^sY^^se 

VALl^META — - - - - 

Q S QhO*VO*VO/2 .3 
64 IND=<0DE(6> 

GO | 5C1. 502. 503. 504). INO ... -- - - - - --- — 

531 vn«!-vnvi 
YNX2=XN*2 

CALL co LYV (ST AP • WLUF • wLL“ »HUC = »HLC ff . E e »°V C . THE "*4 » 1 ) 

CALw RPL^HI S t AA • -3LH~ , WLH® ,-4C ,DCP «C» .RHR ,tmpT»,3) 

GO T 3 5C5 
53 2 VN M I=XN*2 

YNM2=XNMl 

CALL "PLYH( STAF,3LMF,*LHP,A^.?C c .C.,PHF,T^ETA,1 ) 

CALL C “LYV( S T AP . «<LUP . WLLR .H'JC " 1 .HLCP »EF .cyR . T HETA,3 ) 

GO TO 505 

503 YNMUXNM1 
YN«2=XNV1 

CALL FPL YV C ST AF « WLU e t XLL~ .HUC" • HLCF , EF .P V p . THETA. 1 > 

CALL FPLYV( STAF» WLUR. WLLF ,HUCA,HLC= »ER ,P V° .THETA, 3 ) 

GO TO s: 5 

504 YNY1=XN«2 
YNM2=XN*42 

CALL CPLYM{ STAF,BLH=,YLH- »A^,0CF,C. »FH C . THETA. 1 ) 

CALL SPLYHl S^AC.PLHP , WLH= ,-AF ,TCR .C. .R HP . THE TA , 3 » 

505 IF(KODE( 1 1 > >506. 5C7.5C6 

506 FLLT = WLCR ♦ *L T X» SI^( THETA > - AL T Z *C OS( T *E T A ) 

S-ALT = STACR - ALTX*COS{ THETA J - ALTZ*SIN( THET A ) 

XLG'H<5> = SO= T ( C WLLTT - WLLT)«*2 ♦ ( STLTT - 5TALT)**2> 

IrCFIPST.'4E.0.>GD TO 12 

ELL 3 = XL G T H( 5 ) 

12 ELL = XLGTH< 5) 

TL ft = TlfTC+AXLFt* ( ELL-ELLO > 

APV( 5 , 1 )=ALTX 
ACM( 6 . 2 >=C 
APM( 5,3 ) -AL TZ 

FXL T T = <TlFT«(3TALT - STLTT) ) /XLGTH < 5 > 

FZLT t = (TLFT*(XLLT - ¥LLTT> ) /XLGTH (5) 

c XL TB = e X'_TT*COSr r H=TA ) - P/L T T* £tN( THETA) _ _ . 

FZL t B = FZ!_TT*C0S< ’HETA ) ♦ C XLTT*S!N(T HE T A ) 

YML-T =1 FXL T fl*AL’Z - p ZL TB» At_ • x) ✓! 2 • 

A3C( 6 , 1 )=APC0S( C XLT3/TLF?) 

AOC( 5. ?)=3. 14150/2. 

AOC( 5, 2)=ACCOS(F2uTg/TLFT) 

GO T 0 6 C 9 

507 FXLTp=C • 

F 2 L T B=C . 
yml ct =t. 

XLG r H( 5>=P • 

TL FT = 0 • 

m 13 ia = i,3 

Ai?M( 6 , I A ) = c . 

A0C( s, 1 a ) = -> . 


C\9^T 36- 
CABO 0 37C 
C4BC0393 
CABO 0 ?QC 
CABC043C 
CAB0041C 
CABO 3 * 2C 
CAB0C4 2C 
CABO C 44 3 
CABCC 453 
CA3CC46: 
CA50C47C 
CA90C AAT 
C ABC C 49 3 
CAB0C50C 
CABC051 0 
CABCC 523 
C4F3C 533 
CABCC E4C 
CABCC 550 
CABCC56C 
CABCO 5 T C 
CABO 0 5 33 
CAB'' C 5Q3 
CABCC 6^0 
C ADC C 6 1 C 
CAB0062 C 
CAB0063C 
CAPO C 6AC 

CAHf.tft^r 

CA30C663 
CABO 0 6 70 
CABCC69C 
CABC C69C 
CABCC 73 C 
CABC C 7! r, 
CA300723 
CABC O’OC 
CAB007AC 
CABO 0753 
CABC 0 760 
CABC 0 773. 
CABC C 790 

CABCC 7?r 

CABCC 903 
CABC C 91 C 
CABC C 9?^ 
CABCC 97 C 

c\b:c 54 c 
cap: 0 95 3 
CAB' C 
CAB 1 * 0 fl 7 3 
CAH3C9«3 

cab: c ?t" 
C ABC C O'- 3 
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1 


ILEC C A 8!^ F 


FORTRAN 


G R USMAN 


DATA 


s v s t e 


13 CONTINUE 

508 CALL SNT 9 m( FXSN.FZSN.EMSN.THETA) - - 

I e (FIPST.NP, 0 .)CO TO 510 
IF(<OOF( 5 ) .EO .C ) GO TO 512 

!W. 509 )YNM 1 ,YNM 2 - - 

500 co5MA T ( • CABLE CONFIGURATION ON MCE 7 L • • /• 

1 « FRONT CABLE IS • « A fl , • ANC SEAR CABLE IS ‘.AS) 

512 ELO = *Lr;' r H< 3 )+XLGTN( 4 ) _ - 

510 EL=XLG-H( 3 > TXLGTHC 4 ) 

tr=tr:+a<r*; el- elc ) 

EL !FT = 0 *S**( CLDtCLA*ThE- 4 -*CLDE *DE > 

A OR AG = 0 *SXM COO +CD A * THE T A 4 -C DC E*DE ) 

FX AIPi- 4 D : i G*CO S( t hETA ) ♦ELI = T* SIN (THETA) 

F? A| o = — ADR A S* S I N ( ’‘'"TA )- 5 Ll CT *C 0 S( T HE T A ) 

WGTX=- 32 . 2 *AM*SIN( THETA ) 
i* G T ? = T 2 . 2 *AV*C 0 S( T HET A ) 

=M 4 GT=( ZCG**GTX-XCG* *GTZ) /l 2 . 

FXCR= T P*( COSt ADC ( 3 . 1 1 ) ♦COSt ADC ( 4 , 1 )) > 

F 7 CR=te*( COS( AOC ( 3 . 3 ) ) ♦COSt ADC ( 4 , 3 ) ) ) 

FXCEH='F*( COSt ADC ( l , l 1 )«-CCS( ADC ( 2.1 ) ) ) 

FZ CFH=TF«( COSt AOC ( 1 . 3 ) >+CCS( A DC ( 2 . 3 ) ) ) 

emoc=: . 

03 511 1 = 1.4 ------ - 

TENS= T F 

IP( I .GT.3)TENS=Ta 

F*OC== M 0 C*TENSMC 3 S( »CC tI.l))*Aey(T, 3 )-COS(AOC(I. 3 ))»ARM(I,l») 

511 CONTINUE 
EMDC=EM 0 C/ 12 . 

AER 3 M= 0 *SW*C 9 AR* ' CM 3 +CF A*THETA+CMOE»OE ) 

FF= = Z CFH*F 7 C= +F 7 L Tfl ♦R'Z ?M*KGT 7 * f ZA T® 

GG= - X C p H«-EXC c ♦FXLT;S+=XSN + * 5 '’X* r XA ! ~ 

HH=EMOCTTMLFT+E MSN+EM*GT*-AE C 3 M 

RE t URN 

END 

SUBROUTINE FOLTV( S T AV,WLU.WLL .hhU.HHL.EP»°AD, THETA .IF) 

C OMVCN /DAT/AFwDt 1 75 ) , AE® ?P( 5 ' ) ,KCD ? ( 2 6 ) ,LL 

COMMON /OwYCHA/sTO, XLGTHt 5) , A^C ( 5 .3 ) . A bm ( s .3 ) .TR.TL c T.TP 
EOUIVALENCE ( AE = 0 t 76 ) . * LC<= ) , ( A E RO (7 7 ) . STAC c ) . ( AEFOt 78 ) , 3 LC® ) 
01 = 3.14159 

33 GAMU= ATAN(HHU 7 c°) 

T 1 = E 3 *E a ♦HHU*HHU — . - -- --- -- - 

T?s THETA «-G 4 MU 
IF(IF.EO.O) T 2 = GA mu— THE TA 
WLUC= MLCO ♦SOIRTt T 1 )*SIN(T 2 ) 

T 3 = WLU -*LUC 

T 4 = A 3 S( ST AC® -STAV) - S 3 ® T ( T 1 ) * CO St T 2 ) 

XLU°= SG9T( T 3 *T 3 *T 4 »T 4 ) 

X LU= SOPT( XLUO*XLUP — R A 0 ♦ R A D ) 

BU°= A T ANt T 37 T 4 ) 

D=»U= AT ANt R AO/XLU ) 

RET A'l - < BU° - 0 RU)* = TO 
GAML= AT ANt HHL 7 E° ) 

T 5 = EOAE 15 ♦ HHL* HHL 

txj theta -gasl 

IFtlP.'Q. 3 ) T 6 =- ( THETA +GA'*L ) 


CA30C91C 
C ABC C 92 C 
CABCC93" 
C ABC C94C 
C4BC095C 
CA3DC=>6C 
CA3CC9?: 
C ABC C9.AC 
C A BO C 9 9 ? 
CABO i dc : 
C AflD 10 ! r 
CABO 1C 2C 
CA3C 10 0? 
C430 1*4' 
CA3C ID 50 
CABC 106C 
CABC K T’T 
CABC 10BC 
C ABC 1C9: 
ca 3C i i :c 
CABO It 1 C 
CABC 1 12C 
CABO 113- 
CA60 1 l'.' 
CAB C 1 15" 
CABC 116" 
C ABC 1 1 70 
CABC 11 9" 
CABC 1 19C 
CARD 12."" 
CABC 121 : 
CABC 1 22 C 
CABC 1 23 C 
CABC 1 2AC 
CABC r 0 l c 
CABC CC 2" 
C ABC C d 3 r 
CAHCCC4C 
CABC CO SC 
CABCC06C 
CABC C C 7C 
CAHOCC 9C 
CABC C 09C 
CA3CC IOC 
CABC 0 1 1 C 
CABC C 12C 
CABr c 1 3C 

CABC Cl 4" 
CABC 6 ! 5C 
CABC 0 t 6C 
C AB r C ! 7C 
CABC C 1 9C 
CA3C C IR* 
CABC C 2 ‘ " 
C43CC21" 
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* vh -swrsH# py f sM 


f 


FIL.EC COLE 


FORTRAN TX 


GRUMMAN 


DATA 


WLLC* WLCP ♦S0RT(T5)*siN{T6» 

T 7= WLLC -WLL 

T9s ABSXST4CR -STAV) - SOR T ( T5 1 * COS X T6 ) 

XLLR= SQBTXT74T7 ♦TQ*T8I 

XLL= SQFTX XLL°*XLLP -?.AD*F.AD1. ' 

BL»= AT AM( T 7/T8 ) 

OBL* ATAN( RAO/XLL » 

BET AL= X9L 3 -DBL)*F.TD _ - -- - 

l c ( IF *EQ . 1 )G0 TO l 
XL GTHX 3 )=XLU 
XLGTh(4)sXLL 

AOC( 3. X )=B=TAU/cTD-THETA4-e»I 
A OCX 3. 2 )=-° 1/2. 

ADCt 3. 2)=’ I/2.-ADC( 3. X 1 — - 

A OCX 4 , 1 )=o I -X BF^AU/R TO— THETA > 

AOC( 4, 2 )=-=> 1/2 

AOC(A.?l=»I/2-A9C( A,X) _ 

ARM X 3.1 )=-EPARAO*SlN< A0C(3. 1 ) » 

ARM( 3, 2)=C . 

ARM( 3 » 3 ) =— HHU+R AO* COS XaDCX3.11) . .. . __ . 

A=M( 4. 1 >=-EP-RAO*SlN( ADC (4. 1 ) I 
ABM( 4, 2>=C . 

ARM( 4, 3 )=hhl-RAO*CCSCACC( 4, x ) ) . 

R ETURN 

X LG T H( X )=XLU 
XLGTH(2)=XLL 

A OCC X . ! >=-BETAU/R td+THETA 
AOCX X . 2 >*= 1/2. 

A OCX ! • ?)=PI/2.- ADCI 1 1 X ) - - . . 

A OCX 2 • X ) =3 E T AL/P TO*-Ts-*r T A 
ADCX 2. 2>*=> 1/2. 

AOCX 2. 3)*» I/2.-4DCX 2. X ) 

ARM{ I » X )=FP4R AD*SINX ACC X I . 1 ) ) 

APM( I , 2 )=C . 

A=v( x , 3 )=-HhU-p AC*COSX ADCX 1 . X ) ) 

ARM! 2 « 1 ) •E 3 -R AD* SlNXADCX2.lt) 

A PMX 2, 2 )=C . 

AR*X2. ?)=HML+RAD*CDSXADCX2.1>) 

RETURN 

END 

S'JPF 0U T INE RPLYHXSTAO.PLO.^LO «x=> ,yp,ZP ,R AO. THETA , IF) 

COMMON /OAT/AER 3X 175) . *ER CP { 5 0) ,KODEX 2M ,LL 

COMMON /''LVCHA/PTO.XLGTHX S) . AOC ( 5 . 3 > . A RM ( 5 , 3 ) . TC . TL C T *TF 

EOUIV AL ENCEX AEROX 76 ) t yLC c ) . f A E c 0 X 77) . STAC c ) , X AERO I 78) .9LC ! 

PI = 3. X 4 X SR 

xwt=stacb-stad 

ZWT=WLCR-WLD 

X 3*XWT* COS X THETA )-ZWT* S! N( THr ) 

Z 3=X W T* S IN X TMFTA )+ZwT*C3 S( Theta ) 

TO* PLD -Y° 
tic=xd-x» 

XL Hi P* SQF T I TQ* T9 4T1C4T1C) 

BHIP* ATAN2(Tp,TX0) 

XLHl* SOPT x XLH JO* XLHI p -RaC*P4D) 

COHl= A T AN( C AO/XLH I I 


S Y S T E : 

CABO C 220 
CA9CC23C 
CABC C24C 
CABC02SC 
CA3C026C 
CABC0270 
CA9C 0 2BC 
CA90C2QC 
C ABC COO C 
CABOC 3 ! 0 
CABCC32C 
CAB'* C 3 3 C 
CABOC 34: 
CABOC 35C 
C ABO C 36 0 
CABCC370 
C ABC C 330 
CAB003RC 
CA3CC4:C 
CABO C4 1 : 
CABO 042* 
CA90C43* 
CA9CC44C 
C ABC C 4 5 .* 
CABO C 46 0 
CABO C4 7C 
CABC 04B r 
CA3CC4=>C 

cabccs:: 

CABC (“51 
CA3C C«2‘ 
CA3C C53C 
C ABC C 64“ 
C ABC C BE * 
CA0CC56C 
C ABC : 57C 
CA DC CE3 A 
C ADC C5Q' 
CABCC6C* 
CABCC6 ! r 
CABCC62C 
CACCC63" 
C ABC C 64 • 
CAB0C65: 
CA9CCAAC 
CABC C67r 
C ABC C 6 B ■“ 
CABO C6P: 
CABC C 7 C * 
C A 3 C C 7 1 
C ABO C 72 ; 
CABCC73C 
f AM' 1 r TA : 
CABC 0 76'- 

c \sr C7^' 


58 





1 


1 


fILEC CaBlE FDKTC4N TI 

BHT = BHJO -03HI 

Til -Z B-Z° 

XL=S09T< XLHI^XLHI+th*t11» 
TH13=T1C-F A0<<CDS<3HI ) 

_ V M9= T 9-F 40*SIN(BHl ) 

I r { 1^.60. 3TGD TO 3 
XLGTH(1>=XL 

{ XLGTH( 2)=XL 

I ADC( 1 « 1 )=A®C3St ThIC /XL ) 

} AOC( 1 • 2 I -AS CO S( Th<)/XL ) 

i __ _ . . AOC( 1 . 3)=AOC3SC'l 1/XL ) 

; ADC< 2. 1 )=-AOC( 1. II 

ADC1 2 1 ? ) I - ADC (lie) 

i 40C< 2. 31=ADC( 1,3) 

A9M( 1 , 1 ):XO.p AD«SIN(9H1 ) 
ACMC 1 , 2)=YO+5An«C3S(3Hl ) 
A=M( 1 . 3)=?. 

ARW< 2, 1 )*APM( 1,1) 

APMC 2, 2) =- ASV( 1, 2) 

ARM(2,3)=C, 

RETURN 

3 XLG T M( 3 ) =XL 

xlgthc *)=XU 

A DCC 3 » 1 > =4C CDSC THJC /XL ) 

A DCC 3, 2)=A9C3S( Th9/Xl. ) 

_ . A DCC 3, ?)=* C GDSC ”11 /XL ) 

A DCC A • l )=- ADC C 3, 1 ) 

A DCC A » 2 ) =® I — ADC C 3,2) 

ADCC A, ?)=»DCC 3, 3) 

APV(3. l)=X»f!=AC*3!N’{3Hl ) 
ARV{ 3, 2)=VO-3 AD*CDS(3HI > 
APMC3,?)=C. 

ASMC 4, 1 >=APM( 2, 1 ) 

APWC4, 2)=-APMC 3, 2) 

_ ... . APMC4,3)=C* 

RETURN 


GPUMMAN DATA 


END 

SOGRC’UT InE 0LGTHCC1.C2,C3,IC.IDX) 

C erV>!P;j'‘E3 D/L-LGTH FO F OP X-Z-ThETA O p Y-PSI-OHI COEFF 

CD*’ ,? D' !/ PLY Z HA /R T D • XLG T H (5).A0C(5.3>.AFM(5,3) .TR.TLFT , TF 

1*V .N- ,C )GC To 1 . . . _ 

Cl v-C’» c .; AOC< IC, 1 ) ) 
c s c aocc tc. 3) > 

C3 = C AF V { ic, 1)*C^SC ADCC I C , 3 > )- AC M{ 1 C . 3 > *CO S < ADC C IC . 1 ) ) )/12. 
RETURN 

1 Cl CDSC ADCC IC. 2) I 

C2*C AR*C IC, 2)*CDSC ADCC 1C , ! ) )- A PMC !C , 1) *COS{ *DC C IC,2 ) ) )/12. 
C 3 = C ARMC IC. 3)*C0 3C ADC C IC.2) )-ARM( IC .2 > *CO S C ADC C IC.3I) )/l2. 
RETURN 
ENC 

SUBROUTINE DCFSLGC IC . C X I ,C7 1 ,C Tl ,r X 3 ,C Z2 ,C T3 ) 

C CDMPJ’ES 0-DI3 CDS EDS P 0 C X-Z- t HETA CCEFF, 

CQMMDN/OLVCHA/PTD, XLGTHC S),ADC(5,2).ACN(9.3> , TR.TLFT ,TF 
CX 1=S INC ADCC IC. 1 ) )/XLGT-»( IC )*1 2, 

I<s{ AASC mDCC IC.3)*7.!4IE9) •GT..' , 00'*l ) GO TO 2 


S Y S T E v 

CABC077C 
CABC C 730 
CABCC79: 
CABCC8CC 
CABC C91C 
CABCC92C 
CABC 093? 
CAeecsAC 
CABSC9SC 
CAB0C9AC 
C ABC 9 97C 
cabccbb* 
CABC 0 39C 
CAB C CPC ' 
CABC C9 1 •' 
CABC 0920 
CABC C 93 3 
CABC 094C 
cabccps: 

CABC C 96 C 

CABC09T; 

CABC 0990 
C ABC C 99 r 

cabc ioo : 
caoc ic i : 
CABC 1C2C 
CABO IC 3C 
CABC 1C4C 
CABC 1 C 5C 
CABC 1C 6C 
CABC 1C 7* 
CABC ICBC 
CABC 1C9C 

cabc in: 

CABC 111" 
CABC 112' 

C ABF 1 * 
CABC 1 1 4 C 

cabc me 

CABC 119C 
CABC me 
CABC l 1 AC 

cabc m; 
cabc 12c : 

CABO 121 0 
CABC I2?. r 
CA9C 12"*' 

CABC 124 * 
CAfaC 12^1 
CABC 1 26? 
CABC 127: 
CA3C 129: 
CABC 129" 

cabc n: * 
Cabc ! 3! c 


r 
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filec cae?l*e 


F3RTFAN Tl 


GRUMMAN DATA SYSTEM 


X V A'_ - ! CCO • 

GO T 3 1 

2 YV4L=C0TAN< &DC( :c. 3) ) 

1 CZl=-C n S( ADC( IC« 3) »*COTAN(ADCC IC. 1) >/XLGTH( 10*12. 
_.X*TsARM{ IC. 1 ) . . 


C ABC 1 "«7C 
CABC 1 33C 
C ABC 1 
CABC 1 350 
„ CABO 135: 


Z#'= ACV( IC. 3) 

CTi =( 7W T *5IN( ADC! IC, 1 > ) *XWT*C0S(A0C( IC ,3) )*C3TAN( ADC C IC. 1) > »/ 

. — . . IXLGTHt IC) _ . 

CX3 = -C0S( AOC( IC. 1 ) )*XVAL/XLQTH{ 10*12. 

CZ ? = S IN ( ADC ( IC, 3) )/XLGTh( 10*12. 

C’3 = -( 7 WT*C0S( AOCI IC . 1 ) )*XVAL«-XV»T*SIN(ADC ( IC .?)) ) 

1 /XLG~H( IC ) 

F 2 r UPN 
. . END 

C THIS I? A DOUBLE PRECISION Version of CABLF4 TO BE USED 
C WITH T Hn LFC MA T FIX REDUCTION AND IBM FOOT 
.C FINDING ROUTINE 

? UP® 0U T INF LONG 
COMMON/INO'JT/iw, IP 

COMMON /DAT/ A£ ” 3 C 1 75 ),AEF0°(5C>,KGDE( 25) , LL 

COMMON / R.YCHA/R T0,xlG t H( 5 ) . ADC( E.3) . AFM(5 .3 ) .TB ,TL p T,TF 
COMMON /OUVOUM( 10 , 1C ) 


CABC I 5 ?: 
CABC 1 3?C 
CAB01 39C 
CABO 14 0' 
cab: ia i : 

CABC 147 : 
CAST 143' 
CABC l 4 4 C 

cab: 145 : 

CABC C O ! 0 
CABC COCO 
CABC CC 3C 
CABC C* a: 
CABC C 05C 
cabc c: 6: 
CABCCC 7C 
CABC 0 0 5 C 


COMMON/T^-j/CAI 30 ) 

EQUIVALENCE! AEF 0 ( 46 ) . XC G ) . ( A^p 0 ( A 7) . ZC G ) 


EQUIVALENCE! AEFO (03) 
EQUIVALENCE! AE^O (51) 
EQUIVALENCE! AECO <54> 
EQUIVALENCE! aec 0 (E7) 


! AEc ? ( a?), i<c ), (AE= 0 ( 1 CC) .AXL-T) 


t .HETA 
= H 0 

C3AC 
X I XX 


• ( AE=r (49), VO ) 
.(AFFC, (52), WT) 
. ( AEOO (55) ,S* ) 
, (AECP (50) , Y I YY ) 


.(AFRO (50) 
,(AF=0 (53) 
.(AERO (55) 
.(AERO (55) 


. AM) 

.0 ) 

. XIXZ) 
.ZIZ? ), 


CABC c r ? : 
CABC Cl :c 

CABC c 1 1 " 
CABC Cl?: 
C ABC C 1 3C 
C ABC C 1 4 ' 

cabc ci”: 


equivalence 

( A EF 0 ( 1 1 T ) 


TU3N0 ) 


( A E F p ( 1 19) 


a x Sn u) 


( AE r C ( 12: ) 

, A<SNL ) 

CAB- 

e : 

EQUIVALENCE! AE=0( 123) 


aksy ) 


( AE=C( 124) 


A <PH 1 ) 


(AC e O( 125 ) 

. A<th= ) , 

CAB" 

c 1 ■»: 

1 

( A£CQ( 12r.) 


A < A Z ) 


(AEF0(127) 


Tl SY) 


( AE=0( 120) 

, T 20HI ), 

C A-*C 

ci?: 

2 

( AECO( 129) 


T3THE ) 


(A^cri 130 


T4A7) 




CABC 

c : 9 : 

EQUIVAL ENCE(AE=?( 131) 


A < S3 T ) 


( AEFC( 132) 


AKS q V) 


(AEFO( 133) 

, A JAS M) . 

CAB' 

c 2 ' ' 

1 

(a=-;t( i3A) 


= SR4 ) 


( A E F 0 ( 1 75) 


ELS9A) 


( 4E=o ( : 35 > 

, 5F5 D), 

c ab: 

c 2 1 : 

2 

( A = c 0 { l 37 ) 


AK.THD) 


( AFCP( 139 ) 


AKTH) 


( AE FQ ( 139) 

, j D M P ) , 

CAB' 

c 22 : 

3 

( AE C 0 ( 1A0 ) 


AKO ) 








CAB' 

r 0 j 7 

EQUIVALENCE 

(AFC QB ( 1) 


CXUP) 


( AEF OP ( 2) 


CZUP) 


( AE fqo ( 3) 

. CMJD), 

CAECC2AC 

1 

( AEF OR ( 4) 


CXAO) 


(AECCD( 5) 


C7AP) 


(AE=QP( 5) 

. CMAP), 

CABC 

C 25' 

2 

( A5F 0° ( 7) 


CXQO) 


( AEF CP ( 8) 


CZQP) 


( AE POP ( 9) 

. CMQP), 

CABC 

C25C 


( AERO»( 1C) 


CX0P) 


( A E F PC (11) 


CZOP) 


( A=coo( 12 ) 

» CMRP), 

CABC 

C 2TC 

A 

( A E c O 3 (13) 


C XOEF ) 


H fCn P(l4) 


CZDEP) 


( A- FOP( 15 ) 

, C m D “ p ) 9 

CAB" 

C 20 ' 

4 

( AE C OR { ;fi) 


CXAD=) 


{ A E R C '( 17 ) 


C7A0P) 


(AEF 0° (15 ) 

,C •‘A 3°). 

CAB : 

c ? 0 : 

5 

( AEF OR ( 19) 


CVRD) 


( A^c p.P ( 2 0 ) 


CLB° ) 


( AE fop (21 ) 

, : n b p > • 

cao: 

r ■ s'*-* 

7 

( AEFO»( 22) 


C YPP ) 


(»E=C°( 23 ) 


CL°P) 


t AE »3° ( 24 ) 

. CN°P) , 

CABC 

23! : 

a. 

( AEF OR ( ?5) 


CYCD ) 


( AC C pC( 2f. ) 


CLFP) 


( ac c o° (27 ) 

. CNF P ) , 

CAB" 

r 72C 

Q 

( AEFOR ( 20) 


C YtO- C ) 


(AECPR(29) 


CLPFP) 


( AScno( 7C ) 

,c ires), 

r u b c 

r * 7 .' 

A 

( AF=OR( 31 > 


C VPA 0 ) 


( AEPPR( 32 ) 


CLD AO) 


( AECOR( 73 ) 

,CNO 4 0) . 

C AR' 

C 34' 

B 

( AEF JR( 34) 


C rrsP) 


( aoFPP ( 35 ) 


CL n S p ) 


( A E F 0 0 ( 35 ) 

,CNOSP) 

C A F. C 

C3 C ' 

DIMENS I n N C 

MAT ( 14,14, 

3 

) , R •-* A T ( 14,3) 






ca«: 

c •» * - 

COmhl^t 500 

TS( 44 ) 










CABC 

; it- 

COMMON/SNUBB/SNU( 3.3) 

♦ 

SN( 70) 

t 

thusn.thl sn 

. SNUD ( 3 

.3) 


CABC 

C 70' 


COMMON /ROUGH/FR IC{ 3. 5 ) 
OIM-N^ION c XS(3.4) 

DO 1 " J = ! . 3 


CA a C C ■» o' 

c a a * c a 0 * 

PARC C A ! ' 


60 



Grumman c a t a 

§ M 1C KM,* 

I IC FXSCJ.K)=C. 

I 00 I ICsl.5 

i; oo 3 j = i. to 

| 03 T < = 1,1C ___ _ _ ' 

( 3 DiJMC J,K)=C . 

l c (<00r( IP ) . c Q • 3 ) GO TO 649 

l T En 3 = T F ______ 

; IF(IC.GT.2) ’*EN3 = TC 

IP(IC.GT.A) tens=tlft 

• 0UW(1,2)= - t-ns ♦ C3S( AOC ( IC» 3) ) .. ___ 

| D'JVIM,5)= - TEN 3 * SIN (ACCIIC.1M 

OJM(2.2)= TENS * CCS< ADC< IC, 1 I ) 

DJV(?,6)= - TENS * SIMADCt IC.3) J 

- 0UM(3,?) = ( APM( IC.3)*0UV{ l , 2)-ABMUC .1 140UMC2 .2) ) /12. 

DUM<7,<5) = ABm| IC.3»*0UM( I.5J/12. 

PUV( 3,6>=-49M< IC, 1 )*DU«M 2, 6) /12. 

IF( IC.GT.2) GO TO 2 
OL»v( 1 , 3) = C01S< AOCC IC, I) » 

OJM( 2. 3)=C0S( ADC( IC.3 )) . 

D'JM( 3. 3>=< A=>M< IC. 3 )*OUM ( 1 » 3 ) — AB M( IC »X ) *DUM (2.3))/12. 

CALL DLGth <CX.CZ.CT. 1 . Cl 

} CALL OLGth <CXO.CZP.C‘ r P,2.C) 

cx= cx ♦ cx 3 

X 3 Z =-< CZ + CZP »/CX 
DUM (4.1) =x^z 
X °T =-( C^ + CTP )/CX 
D'JWC 4, 2 )=xpt 

0'JM(4,A)= -1 

CALL OCOS-G < IC.DUW< 5,4» ,OUM< 5, 1 ) .0UM<5.2) .DUMI6.4 » , 
lD’JVC 6, I J.CVJMC 6. 2) ) 

D'JM(5,5)=-1 
D'JVtS, 6)=-! 

CALL MASH< 3.6> 

DO * J = I « 3 
CO 4 x = 1 , 3 

4 FXS(J.K) - c X S( J • < ) ♦DUM ( J . X ) 

GO TO I 

2 I-( IC .GT.A ) GO TO S 

CALL DLGTH( CX.CZ. CT, 3, C ) 

CALL DLGTh( CXP.CZP.CTP.4.C) ... 

DUV( 7, l ) =CZ ♦C 7° 

DUV( 7, 2) = C'r*CTr 
DV» M < T, 3 )=CX 4-CXO 
0'.IM( 4, 7)=A<o*j 2 . 

8 O'JNC 1. 4)*C0 5< ADCI IC, 1 ) ) 

DJN< 2.4)=C0S( AOC< IC.3)) 

OJM< 3,4 )s( 4 PM ( IC. 3)*0UM< 1,4)-AFM<IC,I)*DUM(2,4))/I2. 
call OCrs_S( IC. DUM< 5, 3) ,[)U''{ 5, 1 ) ,CHJM (5 .2 ) ,0UV(6,3) .DU” <6 . ! > .DJM 
II A. 2)) 

4, 4 >=- I 
DUMC 5,5)=- 1 
OUV( 6, 6)=- l 
D'JM< 7, 7)=-i 
C4LL va?H(3,7) 



] 


SYSTEM? 

CA9CC4?C 
CABCC430 
CA8C 044 0 
CABO 04 5 C 
CA3CC460 
CABO C 4 7 C 
CA30Q4 S'" 1 
C 450 C 4 90 
CABCC5O0 
CA3C0510 
CA90C52C 
0490053" 
C43CC540 
_ C A 3 C 0 550 
CABC0560 
CA5C 0570 
CASCC5S0 
C ABC 05 90 
CA30C530 
CABO 0610 
CA3CC62C 
C ABC 06 ’C 
_ CABO 0540 
CAB0065: 

C ABC 0 660 

cab: 0670 

CA9CC6AC 

CABCC69*! 

caboo-'o: 

C ABC C 7 1 * 
CABOC 720 
CABO 0 7 3 0 
CABO 0 740 
CA3CC75C 

cap: c t ac 

C43C077T 
C ABC ^7 AC 
CABCC79C 
CASCO ACC 
CABOC 8 I 0 
CA3C082C 
C ABC C A 30 
CABC0A40 
CAPO 085C 
CAB r C BBC 
CABCC H70 
CA3C C 8R" 
CA50 0890 
CABC C90 : 
CAPO C9 1 0 

CABO "9 2c 
CABC "9AC 

C»a' , C9*i* 

CA3CC9B" 

C ABC '*96: , 






CABLE FORTRAN T1 GPUMMAN 

on 6 J *1, 3 
DO 6 K = l.3 

I c < < .NF.3)FXS< J ,K)=PyS( J,K>+OJM( J.K) 
IF(K.FQ.3)FXS{J.4I=FXS(J.4|40UM{J,K) 

GO TO 1 

I c (KOOE( 1! ) .EO.OGO TO 1 

CALL PLGTH(OUM( 7, 3).DUM< 7,1).DUM(7,2),5,0> 

DUM14, 7)=AKLFT*12. - ------ — 

GO TO ft 
CONTINUE 
C ADO SNUQ3ER INCREMENTS 
CALL LONGSN 
DO 7 J = 1 , 3 

e X5( J . 1 )=*XS( J. I )+SNU( J.2J 

FXC(J.2)=FXS(J, 2 ) ♦SN , J ( J. 3) 

7 FX S( J . 4 ) =FX S( J » 4 > ♦ SNU ( J » 1 ) 

CALL FC ICT< e > 

C ZERO CABLE EFFECTS FCR CABLELESS MOrEL CHAR. 

IF(K3CE< 13) .NE.-l . ) GO TO 649 

CO 94 J= 1 . 3 - -- - . 

DO ft4 tt=1.4 
84 FXSC J.K )=0. 

DO 85 J = 1.3 . ... - 

DO ftS KM. 6 
95 F3IC( J.K ) = C . 

.. DO ft* J * 1 . 3 
DO 95 K = 1.3 
86 5NUO( J.K )=* • 

C THf CARLE FORCES /moments PAOTIALS ACF COMPLETED 
C AECO. data IS NOW COMPUTED 
649 Q=RH0*/O*V0/2. 

03=0*5* 

I-< VO .NE.C . )OSV=QS/VO 
l“( VO .EQ.C . >OSV=C . 

XU=CXUP*OSV 
Z'J=C7UP*DSV 
EMU = CMUP05V*C9AC 

XA=CXAP*OSV 

Z A=C Z AP*33 V 
EM A=CM AP*OS V* CB AR 

JF( VO .NE.O . )XO=CXOP*OSV*CBAR/( V0*2. ) _ 

IF{ VO .FO." . )X0 = % 

I F( VO ,NF,* .)ZO=CZOP*OSV*CeAF/{V3*2.) 

I c (VO .FO.D • )ZO=C . 

EM 0=CmQP *0SV*CBAR/2 . 

XOE=CXCED*OS 

Z0E=C7nFP*0S 

FMDE=CMn=P*OS*CftAP 

IF( VO .NF.C . )XAO=CXAD 3 *OSV*CBAR/< VO* 2. ) 
l=< vo . fo.c . ) xAn=r . 

!=( V" .NIF.C . )Z AD = C7A0P*05V*CCAR /( VP* 2. ) 

if( vo .ro.o • > zao=c . 

I“(VO.NF.C. ) FM A 0=CM A DP* 0SV*C8AP /< 2.* VC) 

I r ( VO • L O • “ . )EMAD = 0 . 

TC -)«= \ 4 



] } 

■ ! 

! i i 

O A T A system; 

CAt3f097r 
. CABCC99C 
CAB0C99C 

CA6C 10 c: 

CABO 1C 10 

C ABC 1C2C 
CABC 1030 
. _ CABC 1C 4C 

CABC 1C so 
CABC 1 C6C 
CABC IC’D 
CABC 1 OftC 
CABC 10OC 

- cab: lire 

CABC 11 1C 
CABC 1 12C. 
CABC 1 1 3 C 
CABC 1 14C 
CABC l 1 5 r 
.. . CABO 1 I 6C 

CABC 1 17C 
CABC t 19C 

. CABC 1 1 9C 

CABC 12“'" 
CABC 121“ 
CABC122C 
CABC 123" 
CABC 1 2 AC 
CABC 1 25C 
CABC 1 2S r 
CABC ! 2’C 
CABC 1 23C 
CABC 1 29C 
CABC 1 MO 
CABC 1 31 C 
CABC 1 32C 
CABC 1 3~C 
CABC 1 3 A C 
CABC 1 35C 
CABC ! 360 

. . CABC 1 37 r 

CABC 1 3 ft C 
CABC : ■» ?* 

cab: i a-'c 
CABC 1 A 1 C 
CABC 1 A?C 
c ABC 14 3“ 
CABC 14AC 
CAB" 145“ 

C ABC 1 A6C 
CABC 147; 
CABC 1 AftC 
CABC 1 49 • 
CABC 15“ ' 
CABC 1*1 C 
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c ILE 0 CABLE 


FORTRAN T1 


GRUMMAN OATA SYSTEM 


I COL = 1 4 
I0P0EP=3 

42 DO 20 1 = 1, 1 RDF 

03 20 J= 1. ICOL 

- DO 2D K = 1 , IOPDEP ... 

2? CM AT ( !,J,K>=r,f 

K ) ,E0.3)G0 TC 650 

-C Fx EQUATION 

CM AT ( 1, 1,1 )=-cxS( ! , 1) 

CMAT< l, 1, 7)=-XA-SNUD( 1.2)-FRIC( 1.5)-FRIC(i ,2) 

CMAT( 1,1,3 ) =- X A O 

CMAT( 1 , ?, 1 )=-exf-( 1, 2)*v» T *CCS( T META)-XA*V0 

CMAT( 1,2, ? )=-XO-XAO*VD-SNUO ( 1 , 3)-FP I C< 1 .6) -FRIC < 1 ,3) 

CMAT( 1, 2, ?)=ZCG*A A/12, 

CM AT ( 1,3,1 )=- c XS( 1,3) 

C M A T ( 1,4,1 ) =-<-X S( 1 ,4) 

CM» T ( l,4,2)=-XU-SNUD( 1 , 1 )-FSlC( 1 « 4)-FR ICC 1 ,1) 

CM AT ( 1,4,3) =AM 
CM A" ( 1,5,1) =- Xt.'E 
-C-.F2 EQUATION 

CMAT( ?, 1. 1 ) =-PXS( 2, 1 ) 

CMAT< ?, 1 , 2 )=-7A-SNUD{ 2,2) — c R I C ( 2 , 5 ) -FO I C ( 2 , 2 ) 

CMATC 2, : ,3 )=AM-ZAD . 

CMATC 2, 2, 1 ) =-FX S( 2, 2) T* S I N ( ThE T A ) - ZA * VO 

CMAT{ 2, 2. 2 )=-ZO-7AD*VO-SNUO ( 2 , 3 ) -FR I C ( 2 , 6 ) - e R I C ( 2 , 3 ) 

CMAT( 2, 2.3 )=-XCS* AM/12. 

CM AT ( 2, 3, l ) =- C X S' 2, 3) 

CMAT( 2.4,1 )=-FXS( 2,4) 

CMA t ( 2.4,2)=-ZU-SNUD(2.1)-PPlC(2t4)-FPICC2.1) 

CMAT( ?, F, 1 )=-?r? 

C MCMEN" E 3U A T J ON 

CM AT ( 3,1,1) =— FX S{ 3, 1 ) 

CMAT( 3, 1.2)=-Ema-SNiU0( 3.2)-fric<3.5)-FRIC<3,2> 

CM AT { 3,1,3 )=-£*• 40= C BAR- XCG*AM/i 2. 

C M 4 T ( 7,2, 1 )=— FXS( 3, 2>-Ema%vO*ZCG*WT*COS( TH£T4)/12. 

1-XCG*WT=SIN( ThFTa )/12. 

CM AT ( 3, 2,2 )={-EV0-cMA 0* VO ) *C*3AC-SNU0 (3»3)-FRlC(3.6)-RRIC(3,B) 

CMAT( 3, 2. 3 )=Y IYY 

CM AT ( 3,3.1 )=-FXS< 3,3) 

CM A T ( 3.4, 1 ) =-FxS< 3, 4) 

CMATC 3.4, 2)=-EMU-S\U0(3,l)-FPIC(3,4)-FRIC(3,l) 

C M AT ( 3. 4. 3 )=ZCG*aM/12« 

CMATC 3,5,1 )=-EMDF 

C ELIMINATION OF DTF COL <=CR CABLELESS MODEL CHAP. 

IPC KOOEC 13 ) ,NE 1 . >G3 TO R1 
IF( <ODE( R) .NE .3 . ) vyc ITE C 14. B2) 

32 FORMAL 5X, '<PDE( °) ,H*S BEEN SET PY PROG, TO 3, FOR CABLELESS 

1L CHARACTER I ST ICS* ) 

KOOEC Q ) =3. 

03 33 1 = 1,3 
DO 33 J * t » 3 

83 CMATC I , 3,< ) =CMA T( 1 , 4,K ) 

GO "3 31 

C CONSTRAIN" EQUATION 
3 l C M A T ( 4, 1 , * ) S-XB7 


CAST 15?: 
CAeC 15 33 
C ABC 1 54 - 
CABC 1553 
CABC 1563 
C ABC 1 570 
CAR* 1 53? 
CABC 1 53 C 
CABC 163 o 
CABC 161'' 
CABC t*-2f 
CA -3? 1 6 3“ 
CABC 164C 
CABC 165C 
CABC 1 66C 
CABC 1 67 C 
CABC 1 63 : 

caoc u j: 
CABC 1 7jC 
CABC 1 7 1 C 
CABC 1-72C 
CABC 1 7 3 r 
CABC 1 74 C 
CABC l 75C 
CABC 1 76- 
CABC 1 77C 
CABC 17a: 
CABC 179: 
CA9C1HCC 
CABC 1 3 1C 
CABC 1 B2C 
C ABC 1 83C 
CABC 1 «4C 
CABC 165C 
CA3C 1 963 

CAB' 19 7: 
CABC 199: 
CA3C 1 9 A C 
CABC 1O0C 
CABC 19 1- 
CABC l 923 
CABC 19 7C 
CAB" 104- 
CA3C 1 95C 
CABC 196C 
CABC 19 3 
MODEC A3*- 199' 

cab: i 99-' 
CABC 2' 3 C 
cab: 2'-> i - 
CABC 2- 20 
CABC2C3C 
CABC 2: 4 3 
CAB- ? 3 ~ - 
CABC 2 * 63 


63 



1 


1 


ile: cable 


EOFTCAN Tl 


GRUM-iAN DATA SYSTEM 




c 


CM AT ( A , 2. 1 ) s-XPT 
CMAT( 4,4,1)=: 

ACTIVE CABLE CONTROL EOS, 

I e (<DDE( 13) .LE.OGO TC 30 

CMAT( 1 , 5, 1 >=C .0 
CM AT{ 2,5. 1 )='“ ,T 


CABO 20 70 

CABO 20 BC 
CABC 2HC)C 

:abc 2icc 

- CAOC 21 1C 
C ABC 21 20 
C ABC 21 30 


CM A* (3,5,1 ) = ' . 0 

I- ( K0DE< 6) . r'Q . 1 ."P .KODEC 6) ,EQ. 3)GC TU 46 
I C2 = 4 
I C 1 = 3 
G'O to 47 
45 IC2=1 
I C 1 = 2 


CABC 21 40 
CAOC 21 5C 
C ABC 21 6C 
CAOC 217C 
CABC 21 5 " 
CABC 2 1 RC 
CABC 22 0C 


47 CM AT{ l , 10. 1 )=- ( COS( AOC ( IC2. 1 ) ) -C"S( ADC C IC1 . 1 ) ) ) CABC221C 

CV4^( 2. 1", 1 )=- ( COS( ADC< 1C2. 3) >-CCS(AOC ( ICl .3) ) ) CABC 2 2 20 

- CMA r ( 3. 1 0, I)=-(4CM(IC2.3)*C0SiAr)C(IC2,in -ARM{ IC2 , 1 ) *COS( ADC ( I C2 , 3CA3C 2230 
1 ) ) ) /I 2 •♦( A5 v( IC1.3)*CDS(ADC( ICl ,1 ) )-AR M(ICl,l)*C0S(ADC(IC1.3)>)/12CABC224C 


c . , 

. C- EQ DF M 3 Q P DYN. 

CVA T ( 5,5, 1 )=72.*c D*CSBA 
CM AT { 5,5.2 ) = + 2.*C Sj>D*FL SB A 

CMAT( c,7, 1 ) = + AKSBT* 2. . . 

CMAT( 5,6. 2 ) =-A< *53T« 2,* AKSBV-3DM0*P S9A 
CM AT( 5.6.3 >=-AJASV«RS3A-GCV *=L3BA 
C’M-( 5, 5, 3)=-AJASm-ELSCA 

C EQ RELATING R'JLLEY ROTATION TO SYS. GEOM, , MQTpo ON TOP 

CALL DLGTHI c M6T(6,4. 1 ),CMAT( 6. 1 .1 ) .CMATI6 .2, 1 ) . ICl ,C ) 
CMA-(6,6, 1 )=-=S3D/I2. 

C ACTIVE CABLE FEEDBACK EG. 

CM AT ( 7, 2,2 ) =4KQ 

CM AT( 7, fi, 1 ) =AK T H 

CM A T ( 7, 6, 2 ) =AKTHD 

CM AT ( 7,0, 1 >=-l. 

_.C. TOTAL ''OLTAGE EO F m ♦ EMC 
CMA T ( 4,7, 1 )=-l . 

CMA”( 0,0,1 )=1 . 

C M AT( o, 1 1, 1 )=l . 

C RELATION OR r H M tq THMD 
CM AT { 6, B. I ) =- 1 , 

CMAT( 5,A,2)=I . 

C RELATION of TPOBK to CTC AND IN=‘JT DT 
C M A T ( IT, 5. 1 )=1. 

cmati io, ic, : )=: , 

CM AT ( 10,12, 1 ) =- 1 . 

GO TO 3! 

C_. FFE034CK LCC° EQUATION 

30 C M AT ( 5. 2. 2)=AKTHF 
CMAT( 5,5, 2 )=-T4*HE 
CMA'( 5,«, 1 )=- ! . 

31 IT HD=o 

I B (<nr>E( 14) .Fc.^jro To 32 

C SUBST. COL ICX INTO COL ION TO G" T NUMERATnc ROOTS 
I OX = < 0 DC ( 14 ) 

I ON = < ( 1 5 ) 


CABC 225" 
CABC226C 
CABC 22 7 C 
CABC 2 2 3C 
CABC 22 0" 
CABC 23CC 
C ABC 2 7 1 " 
CA3"232? 
CABC 233C 
CABC 2 34C 
CABC235: 
CABC 2 35: 
CABC 2 ?■" 
CABO 2 3 5 C 
CABC 23RC 
CAOC 24 0" 

cab : 24 ic 

CABC 242" 
C *9C 2 4 7 C 
CA3C24*: 
CABC 245C 
CABO 24 6: 
CABC 24 7: 
CABC 24 = " 
CABC 24 4C 
CAB0250? 
CABC 251 ; 
CABC 25 R5 
CARP 25or 
cab: 2540 
CABC 2 5 5 3 
CABC 2560 
CABC 257* 
C An " 25 bc 

CABC ?5 
C *BC CO 
C 2610 



I 




i L 

4 


64 



1 


} 


FILE" CABLE 


e-ClC-rpAN -J 


GRUMMAN DATA S Y S t = m £ 


52 


3A 


38 


37 


39 


32 

65 s * 


!-( IDN ,NE. 1 31GC TO 52 
IDN=2 
I T HO: 1 3 

IF( IDX ,GT. 141GC TO 38 

L*0 34 1 = I « 1 4 

00 34 Ksl, 3 

OMAT( I,K> = CMAT(», IDN.K ) 

C«AT( |, ION.K )=-CMAT( I ,IOX.K) 

GO T 0 32 
on 37 1=1,14 

DO 3* K = l, 3 

894T( ' .K »=CMATC I • ICN.K ) 

C r 4*~( i.IDN.K)=C.C 
I~( IPX ,EQ. I6)G0 ”0 39 
CMAT( 1 , ION, ! )=xn" 

CM4T( ?, ION, I ) = 7 n Z 

C'*AT( 3 , IDN, ! )=E‘JOE . 

GO T 3 32 
C‘*AT( 1 , ION, » »=XA 
C MT{ 2. IDN, 1 )=ZA 
CNAT ( n, ion. 1 ) =EMA 
N=KOO = ( 8 ) 

CALL MATP IX ( CMAT,N,SOOTS,<4A, IfO) 
IF(<0OF{ 141 .E0.C1G0 ^0 35 
DO 36 1=1,14 

DO 36 <=1,3 

C<AT( I, ION ,K JrPMA' ( I , < ) 

F( KOOF( 51 .HE ,C > W= ITE( IW.100) IFF 


SUP9 
:ouat. ACE 

15 •< 4A • 


36 
C 35 

_C_ 1C" « , OPMAT( 2X, • IER = *. 13, 7X, • Sr ! 
C THE *00 r 5 OF ▼he CHACAC 
C AND THE NUV3-B QF COOTS 
_ 35 K 4 A =< 4 A — * 

IFCI’HO.N ,13 )G0 T G 70 
K 4 A=X 4 A ♦ 1 

c^0TS(<4A)=(c,C,C ,C ) 

on 71 I = t,K4A 
C4(KAAA2-I »=C4(K4A>1- I 1 

71 CONTINUE 

C4( 1 )=C. 

70 CALL PCINTSJ lw, COOTS, <4A > 

GO to 651 .... 

65C CONTINUE 

C NE* SN’JBPEC EFFECTS 
<ODE( 14)=r 
on 6C0 ic= 1,4 
DO 2C1 1*1. 1C 

oo or i j = i,ir, 

20 1 DUM( I , J )=F . 

TC='’F-to + .tij?nc 

I p ( IC,G T ,2) TC = 'USNO 

ium( i, 3)*-Tc*crs( aoc ( i ■ t : ) 

O’JMI 1 , 4)=-TC*SIN( ADC ( IC , 1 n 
0U’4< 1,6 > = C 0 S ( AF C ( IC . I ' ) 

0J4< 2, 3)=TC*CrS( A PC ( IC . 1 ) ) 
OJ M (?,6)=- T C'rSTN{4DC( I C * 3 » * 


PQ C B AND =>CDM - DC ECFQC COOS* ) 
IN THE COMPLEX ACCAY • CCQTS* 


CABC 26 20 
CABC 263" 
CABC 264C 
CA8C265C 
CA0O 266" 
CABC 267C 
CABC 26*30 
C AB( 2690 
CABC27CC 
CABO 27 TO 
CABC n 720 
CA~ ■* 2 7 3 C 
CABO 2740 
CABC 2750 
CABC276C 
"ABC 27 7.” 
CABC 27SC 
CABC ?79C 
CABC 2 3C C 
CASC 23 1 C 
CABC 29 2C 
CABC 2830 
CABC 2940 
C ABC 295C 
CABC 266 C 
CABC 297 r 
CAB0299C 
CAB0299C 
CA-3C 2 3CC 
CABC 29 1 C 
CABC 292" 
CABO 297 0 
CAB0294C 
CABC 2 A5C 
CABC 296C 
CABC 2 9 t 
C-3029 .C 
CAB " 299Z 
CABO 3C " " 
CABC 3C 1C 
CABC3C2C 
CABC 3C3C 
CABC 7 C 4 C 
CA3C 205C 
CABC 306C 
CABC 30 7C 
CABC* ? ~ 9" 
CA9C 3C 9 0 
C AOC 3 1 0 C 
CAdC 3: ! " 
CABC 31 2C 
CABO 31 7" 
CABC ?lft' 
CABC 3 1 f C 
CA«C 3 1 ap 
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I 


1 


.FILE? CABLE c OFTFAN T1 


GRUMMAN OATA SYSTEMS 


DUM ( ?, 6)=C15( A TCI IC » 3 ) ) 

D'JM ( 3 » 3 ) = ( AFM( IC.3)+DUM( 1 . 3 ) - AF Mi IC . I > *DUMC2 .3 >) /I 2. 

DJM< 3,4 )=A=w< IC, 3 1,41/13, 

O'JM { 3, 5)=- ACM( IC, t)OUM( a, 5>/12. 

D'JMC 3, 6 )=f A = M( IC, 3)OUM{ 1 ,6)-4FM( IC.l ) *DUM< 2 , 6 ) ) /I 2. 

CALL 0C03L G( IC.0UM(4, 1 ),0UM(4.2) ,I?UM{4,3) .OUMfS.I > .DUM (5 
1 DJMC5.3)) 

D JVC 4,4 )=— 1 • 

O'JMC 5.5>=- 1 . 

OJM( 6, 6 )=- 1 . 

O'JMC 6 . 7 ) =A< SNU* 1 2 . 

I-CIC.GT.2) OU‘-'C 6.7)=AKSNL* 12. 

CALL DLGTHCOUMr*. 1 ) ,OU^C 7, 2 ) ,3UM f 7,3) , IC , 0 I 

D J v ( 7 , 7 | =— 1 . 

CALL M A SH{ 3,7) 

03 20? J =1 • 3 

03 2C0 K= 1 • 3 . 

I FXSC J,K »=FXSI J.KI+OUMf J,<| 

* CONTINUE 

CMAT( l,2,2)=-XA .... .... - - - 

CMA^C 1,2,3)=-XAP 

CM AT C 1,3,1 )=*T*COSI THETA )— XA* VO 

CM AT C 1 , 3, 2 ) =— XC-X 40* VO - — 

CMA-C 1,3,7) =7CG* 4 M/I 2 , 

CMA T I 1 . 1,2 )=-XU 

CM AT ( 1, 1,3 ) = AM 

CM 4 T ( 2, 2.2 )=-ZA 

CMA T { ?. 2,?)sAV-740 

CMATC 2, 3, 1 )=MT*SIN( theta )-za* VO 

CM AT < 2, 3, 2 ) =-ZQ-7 AC* VO 

CMaT( 2,3,3) =— X CG* A m/i 

CMA~( 2, 1,2)=-ZU 

CM AT { 3 , 2,2)=- EM A 

CM AT ( 3, 2,3 )=-=maD*C94=-XCG*AM/1 2. 

CM ATf 3, 3, 1 >=-Ew 4* VC*ZCG*MT*CQ5( ThETA ) /l 2 ,- XCG* WT* S I N( THE 
CMATf 3, 3,0 )=(-EV0-Eva-)*v0)*C3 A» 

CMATC 3, 3,3 )=YIYY 
CMATf 3, 1,2 )=-F«u 
CMATC 3, 1,3) =ZCG* AM/ 12, 

00 7C? 1=1,3 

...00 70?- J = l»3 . .... ... 

) CMA T ( I, J,1 )=Cmat{ i,j, I )— FXSCI »J) 

IW = 6 
N= 3 

GO to 655 
[ CONTINUE 

I^CXODEC 3).NE,2)FETU=N . .. 

IFfKOOFf 14) ,EO.?)GO TO 41 
I rEr ( I M * A 3 ) 

3 Pn5vuT(//« COMMUTATION op the DENOMINATOR FOOTS*//) 
L<ODF=K°OF 14) 

KODFC 14)=? 

CALL FFE01C FOOTS, <44, C4( <4AT1 ) ) 

GO "> 42 

1 KODEC ! 4 ) =L< ODE 


T A ) / 1 2 , 


CABO 317? 
CABC 3180 
C ABC 3 1 90 
CABC 32CC 
CABC321C 
CAB" 3220 
CABC 323 r 
CABC 3240 
CABO 3250 
CABC 3260 
CABC 3270 
CABC ’23C 
CABO 32°C 
CABO 3 3C C 
CABO 33 1 C 
CABC 3 3 2C 
CABC333C 
CABC 334C 
CABC 3350 
CA3C335C 
CABC 3370 
CABC 3380 
CABC339C 
CABC 340C 
CABC 34 1 C 
CABC 342C 
CA 8 C 34 3C 
CABC344C 
CAB03A5C 
CABC 346? 
CAB0347C 
CABC 3430 
CABO 34 9-? 
CABC 35" C 
C A3 ? 35 l C 
CABC 35 2 A 
CABC 353C 
CABC 354C 
C-BC 3550 
CABC 356C 
CA3C357C 
CAB? 35 30 
CABC 359C 
CABC 360 0 
CABC 3610 
CABC 3e>20 
CA3C 76TC 
CAB? 364? 
CAB? 365 ? 
CABC 366C 
CABC 3670 
CAOC 363? 
CAB? 3*9" 
CA3C 37" 0 
CAOC 371" 
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'***<#* ** - >• ■* KW I 4 «'> ♦m*!*'"* 4 .'>i?> l i',""i‘ , vMr«. , /» "pf. 1 ***,, f 


I 


f^ILEO cable foctoan tj c r u m m a n data 

CALL FRE 3 ( ROOTS, <AA ,C 4 (K 4 A* 1 ) ) 
c ET>JRn 
?NO 

SU 3 =DUTtNE P r INTO ( LOUT»cr,Mar)OT) 

C0«M0N/FR0/C4( 30 ) 

DIMSN 5 ION RT< 2 , l ) 

< 4 =NC 00 x +t 

-f r:( LHIJ’’ . 1 )(CA(I),I = !,<A) 

1 e OCMATC POLYNOMIAL W CONST TFPM F JPST* , / . ( F 2 7.6 , 4 F 1 6 . 6 ) ) 
COMMENT oc i N T* PF=TINEHT INFORMATION ABOUT CHAP AC TEC I ST I C FOOTS 



system 

C ABC 372C 
CA3C373? 
CABO 3740 
C ABC 00 10 
CABOCO 20 
CAB^CCIC 
CABC004C 
_ CA0CCO5C 
CA00025? 

CABC 2 2 7? 


I T E( LOUT, 50 7) 

507 c-lPMAT( • R CAL IMAGINARY T H/D-SEC 

1 *C PERIOD-SEC DNATF-CPS UNONAT-CPS 

2 *R 4TIQ DECAY catjg • 

NEX T= 1 

I-f NPOOT.GT.O ) GO TO 5 

« c IT-(LOUT,2) 

2 FORMAT { 5X, • NO ROOTS*) 

RETURN 

5 03 5’C I = I,NROO” 

IFfNFXT.Eo.2) GO TC 777 
S I G=R T ( 1,1) 

ARIG=iBS(SI5) . . 

AWO=ABS(OT( 2, I ) ) 

THO I - ASIG* 1 .442605 

•’’HD= P9<?99 . 

IFJ THDI.GT.l.E-5) THO= l./THDI 
IF( AWD.EO.O.) GO TO 531 

NEXT =2 

MOs-AWp 

ONAT= Awo * .150155 

_ °EP= 00999. 

I F ( ON AT. 3 T . 1 • E — c ) PER = l./ONAT 
JNONA T = SDR T( ASIG** 2+A *0**2) *.159!55C 
DAMPS s 0 . 

I c ( AWO - 1.E15 * ASIG ) 5C3.5C4.5C4 

5C3 0 AMPR s SIGN ( C03( ATAN ( AWD/ASIG ) )• -SIG ) 

5C4 CHDI= thOI*PER 

OFCR = oooqo , 

A»G= SIG * PER 

.... I-C ARG.LT. 1 74 . 6 ) DFCR= EXP { 4 RG ) 

*#PIT5(LCUT,529) SIG.WD. 7HC . ThD I ,PF P .ON AT, UNDN AT ,D AMPP ,OECR 
520 FORM AT ( E12.A,2X,!H+,rll.4,flF13.4) 

GO TO S3C 

531 5 0 I TE{ LOU" , 53 2 ) SIG.THD.THCI 

532 F?RMAT(F12.4,14X.2E*3.4) 

GO T-, 5?0 

77T nfx*=i 

53 C CONTINUE 

RETURN 

END 

SUBROUTINE MASH (NN.N) 

COMMON /DU/DU m ( 13, 10) 

C NN = C INAL MATO rx 517? 

C N = OP I G INAL A’ATPIX SI7E 


CABCC2B? 
1/T H/*,CABrr; Q - 
DAMP •.CABCCIC' 
) CA 9 C c 1 : : 
CABC Cl 22 

cabcc: -*c 

. . . CABCC 1 A? 

CABC 01 5? 
CABC 3 16'' 
CABC017: 
CABC 0 13 3 
CA9C019C 

CA82C2:: 

CABC021C 
CA3CC22C 
CABC C 2 3C 
CABC C 24? 
CABC C 250 
CAB2 C 262 

CAB 2077 ; 

CA5CC 23C 
CA3CC23C 
CABC? 202 
CAB? C 3 1 2 
C A 32 0 32? 

c xeco 

CA3CC34? 
- * CA32C35C 

CABC C 35'“ 
CABC C 370 
• CABC 329? 
CABC C 30? 
CABC C 4 2 ' 
CABC C 4 ! ? 
CARSC42? 
CABCC 4 3? 
CABCC44C 
CABC C 45? 
CA3024*? 
CABC C470 
CABC CAB? 
CABCC Apr 
CAB r C 5 2 2 
CABO C = * 0 
CAB 2 ? 5 2 ? 


C 
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1 


! 

I 


l 


i 


file: 

t 

f 

i 

■* 


.. 10C1 


CABLE FQPTfi AN T1 


GRUMMAN DATA SYSTEMS 


I NN=N *NN 

DO ICO 1 LL = 1 . INN 
L=N*1-LL 
I I =L- t 

. J J =L — 1 _ 

00 IOC 1 1=1 . T I 

OP l'-Ol J=1JJ 

0JM(1.J)= OUM( I. J )40JM(L.J)*0UM( I ,L» ✓( -DUM(L.L) ) 

KE~U=N 

3U3F0l , t INE LAT 
COMMON/IVIEUT/Tw. I«? 

COMMON /OAT/ AERO! 175 > .AP=0O( 50) ,KCQE( 26) ,LL 

C3VM0N / YCHA/R-D.XLG^HC 5) ,ADC ( 5.31 .ARMC5.3) .TR.TLFT.TF 

COMMON /OU/DU*-’ ( 10.10 

COMMON /PRO /C A ( 30 ) 

EQUIV ALENCE! Ac=0( a6).XCGI.(4E~0(A7 I .ZCS) 

“OUIV AL r NC^( APR-? ( 5 3 ) . T H" ~A ) , ( A E F o (49). VO ),(AERO (50). Aw) 
EQUIV AlENCE! AE=0 (51). = HO ),(AE«C (52). WT),(AE=0 (5?).-? ) 

EQUIVALENCE! AEPO ( 54 ) . C3 A c ),(AE=G (SS).Sto I.IAECQ (56). XIXZ) 
EQUIVALENCE! AFRO (67).XlXX ),(AEPO (5d).YIYY ).(AERO (59). ZI 17 )• 
1 ( APcrt ( 95), AK.R ) . ( AFFO (ICC) .AKLFT) 

. .EQUIVALENCE! AE=0( 1 17) . "US'! 2) . ( RE c O( 1 19) . AKSNU) . ( AE=0 ( 1 20 ) . A <S NL ) 
EQUIV ALENCE! A ER 0! 12 3). AXSY ) , ( ACROI 1 24 > . A<PHI ) , ( A? PO< 1 25 ) . ACh^ ) , 

1 A<A 7) . ( AERO! 1 27) . Ti SY) »(A rc 0( 125) » T 2°HI ). 

2 (AERO! 129) . 73THE ),< AEFCC I3C ) . 74AZ) 

EQUIVALENCE! ATP 3 ( 131>.AKS=*T),(AERrCl32) . A KSBV) ,(A e RO(!33).t J4S«), 

1 ( AEP 0 ( 134), R S3 A ) , (AERO!I35) .ELS3A) .( A e "0 (136) • ^SBO), 

2 ( A-FO( 137) • akTHO) , (AE C C.C 130) • A K TH ) , ( &E “□ ( 139) . 30-»o>. 

3 ( A FC O ( ’ 4 '. ) . A < 0 ) . ( A;C n { 141 ) . AK7) . ( APS 0( 1 42 ) . A<OSO) , 

4 ( A FPP ( 14 3) . AKY).(aEP0(144), AKY01 

EQUIVALENCE! AE c OR( 1), CXUP) . ( AE C CF ( 2). C.ZUP > . ( *E =□» ( 3). CMUO, 

1 (AEPO°( 4), C<A^) . (AE=OP( 5). C7AP) . ( AER0O( 6), C*«AD>, 

2 (AEROP( 7), CXQP) , ( 4E C CP ( 8), C Z QP) »( AFSqp( o), C'AQ 3 ). 

3 ( A E c 0° ( 1 0 ) . CX n ~) . ( i c i=P3( ii ) . C20P) .( AEPQP!1?) . C v OP> . 

4 ( AEFOP( :3).Cx0E D ).!A = crP(l4),C7OEP).(AEF0P!15).C'C'EP), 

5 ( AE 000 ! 16) . CXAO r > ) , ( A=^CP( 1 7) ,C?Ano> ac- = or- ( j q ) , c aaop I , 

6 (AEFOO(IO). CY°P) ,(AE C OP(20). CL3P1 -RpP(21>. CN9°). 

7 ( AE K 0°( 22) • CYHO) ,(AEPrP(23> . CLOP) , ,^ c 9 0»! 24 ) . CNOP) . 

8 ( A EF 0° ( 25 ) • C YPP ) . ( AEFC°( 26) . C LP» ) . ( AE -CP ( 2 7 ) ♦ CNFP), 

9 ( AEPO°( 2d) , CYOPP ) . ( AE C CP ( 29) .CLOFP) , ( AERnP ( “’O ) .CNORO) , 

A ( AFCO°( 31 ) .CY0AO) , ( AEPCP( 32 ) .CLOAP) , (AEROP ( 33 ) .CNQAO) , 

B (AFC0P( 3^*) .CYOSP) . (AEPCP(35) .CLCSP) .(AEP0P(36),CN05P) 

01 MEM 5 ION C MAT! 14, 1 4, 3) ,3MAT( 14,3) 

COMPLEX 900^5(44) 

CO^on/ SNU0^/5NU( 3. 3) . SN( 3C ) • 'HUSN, THL SN , SNUD ! 3 , 3 ) 

COMMON /PEU3H/PP IC! 3, * ) 

DIMENSION FXS! 3.3) 
no JO J=I,3 
oo 10 K = l, ? 

: c xs(j,<)=“. 


CABCC530 
C45C 054C 
CABO C55C 
CA90C560 
CABCC 5 7C 
CAB r c 5 At 
CABOO 5-->C 
C4BCC6CC 
C ABC 06 1 C 
C ABC C 62 : 
CABO C 6 ’O 
C A90CP40 
CABO C65 r 
CABO C 660 
C ABC C 67C 
CABO 0 6 3 0 
CAecc*-9“ 
CA3C C 70 0 

CABOC^j: 

CA3C 3720 
CABCC 73C 
CA9CC74C 
C ABC 0 750 
CA3C C7Pf 
C ABC C77^ 
CA3CC75C 
cabc^tt: 

casc c a : : 
cab: c 5 :c 

CABCC 43: 
C ABC C B4C 
CAB0C45C 

c abc c b<>: 

Cab'C^b: 
CaOOC- 2 7? 
CAB c c ■» : c 
cabcc ->: " 

C ABC C 9 ? ■' 
C C9 3? 
Ca-bccoa: 

C ABC C95C 
C A BC C 350 
CA9C C Q ~ r C 
CABCCQBC 
CA^C C n 3C 
ca&c ic : - 

C ABC IT 
C A B *> T ? * 
CABO 1' 70 


IF(KOOE( IC ) .E0.3 )GO TO 65C 

v oo in ic=:.s 

I R - ! K ODE ( 11 ) .FQ.'I.ANO, I c. 50.5)90 T- 
no 3 J = ! , B 


cas: :-4c 
cab' ir p" 
C A BO 1 r <r,C 
Ci°: : ' ^ : 


I 

! 

i 

i 

4 

I 

i 

i 

i 

i 
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! 


T 


1 


i 


PILE* CA SL' 


t: 


Grumman data s v s r z M 


on 3 <=!.« 

— . - ? D'JM( J.K )=C . 

T 5NS=-5 

I=( IC.GT.2J--nS=T- 

. I e ( IC.G^.A )T5 n?=t L ct 

C41=C05i ADC ( ir, 11 » 

CA2=C3S( ADC< IC. 2 ) ) 

C4?=C05( ADC( IC, *> ) 

I -( ABM CA 1 » # i_t. .l :c 1 > CA1=C. 

I M AB>( CA2) .L T . .CCC 1) CA2=C. 

i c ( ab3< ca? » .l*. .nrr i » ca3=c. 

DUM 1. 2)=-T5NS*CAl 
DJM ! * 3 >="*:nS*CA 3 
r>'JM( \ , 4 )=c A 2 

OJM 1, 5>=-tenS*5IN< ADC ( IC.2) ) 

DUv(2,2)=f Acv( rc. I )*DU^( 1 , 2 )- A =m< ic . 2 )*TENS*CA2 )/i2. 

DJM(2.?>= ACM( ic, : 1, ?)>T12. 

DJ^( 2» 4 •=( acm( !C, 1 )*CA2-Acv{ ic .2 ) *CA 1 )/I2. 

P5J«( ?. 5) = APM( IC.2)«te\c*5Im(A0CCIC,1»)/12. 

DUM(2.A)= ACM( ic. : JO'JMt 1. 6)/12. 

D‘JM( 4, 4)=- 1 . 

OUM( A, 9)=C . 

!r ( IC .GT .2 )D‘»M( 4, 3) =AK=* 12. 

I p ( IC . G” .4 )D'JV( 4. 8 ) =4 KLFT* 12. 

0'J V ( 3. 2 ) =- A-'-* { ic • 3 ><OU*-*{ : . 2) / : 2 . 

DU'4( 3* 3) = ( - AC '*( 1C« 3)*DU'4( 1 • ? )-A?M (IC »2 >*TE NS*CA2> / I 2. 

OUM( 3.4» = ( AE*4( IC.2)*CA3-ACV( IC , 3 1 *CA2 ) /I 2 • 

3.7) =- ac’4 ( IC. 2)»tcnS4 SIN( ADCC IC .3) »/I 2 . 

0U*4( 3,5 ) = -4=v( ic, ?)«3UV(1,«)/12. 

CALL DCDSDf I C . CL*' ( 5 , 1 ) ,D*i“( 5. ?. > .D'jv(5,3) ,D-JM(a ,t > ,DUV (f> , 2) , O'JMI 

1*. 31 , DUM ( 7,l| ,2 JM( 7, 2) «DUM( 7, 3) ) 

- ... O JM( 5. 5)=-l . 

DJV( 6, 6)=- 1 . 

DUM(7.7)=_i. 

I-( IC .GT.2VC3 TO 2 

CALL MACHI 3,7) 

6 00 4 J = 1 , 3 
00 4 K=l, 3 

4 "XS( J,K )sFX5( J.K )«CUM< J.K) 

GO 73 i 

2 I c ( IC.GT.4 )G0 TO 5 _ 

CALL DLGTm( CY.C'’S,C=M. 3, 1) 

CALL DLG t H( CY^>, C=>S r .C c H3,4, 1 ) 

DUM{ 3. I )=CY+CTD 
0U"4( 3, 2 )=C3S + CP3 3 
DUM( 8 , ))5C°hk°ho 
0 JV( 8, 8)s- 1 . 

CALL ma?h{ 3.8 ) 

GO TO * 

5 IMCIOFI It ) .-O.MGC TO I 

CALL OLG’H(rMJ , '(3.!),OU M (3,?),OUM(»,3),3.1) 

DJMf 3, fl)=- I . 

C ALi 7 A$H( 3. A ; 

GO H 3 
1 CON'IMJC 


CAPC 1C A 0 
CABC 1090 
CAPC 1 ! 0 0 
CABC HIT 
CABC 112: 
C*9C 1 1 ?C 
CABO 1 l a a 

cap: i i 5* 

CABC 1 I6 r 
CABC 1 l 7 0 
CABO 114 7 
CABC : p: 
CABC 120 c 
CA 3 C 1 21 : 
CABC 12 2'“ 

cab: 12’" 

CABC 1 24 : 
CABC 1 2 SC 
cab: : 260 

CA3C 1 27 0 
CABC 1 23C 
CABC 1230 
CABC 1 3*0 
Cabo i 3 1 : 
CABC 1 3 2" 
CABC 13?: 
CABC 1 340 
CABO 1 350 
CABC 1 350 
Cab 0 1 37 : 
CABC 1 3?0 
CABO 1 320 
CABC 14 ■*<* 
CABC l 4 ! - 
CAPC 142* 
CA9“ I 4 70 
CABO 1440 
CABC 14 50 
CABC 146: 
CABC l 4 ,’C 
CABC 14 90 
CAB'* 142* 
CAB f 1 0 

CABC 15 1C 
CABC 15?0 
CABC 15’5 
CABC 1540 
cab: 1 ^ 5 ' 
CAB<* 15-0 
CABC 157- 
CAPO i c «: 
CABO IS'JC 

c * oc : 5 0 : 

CA30 1 M ‘ 
car: j^2* 
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1 


FILE - ? C43LE FORTRAN 71 


GRUMMAN DATA SYSTEMS 


111 Continue 

C C0V3LE t E summation of cable fofces g moments 

C ADO SNJFBFR INCREMENTS 

112 CALL LATSN 

DO 3 J = 1 » 3 — - 

03 3 K = l,3 

fl FXS{ J.K )=FXS( J.O ASNUI J.K > 


CARP 163? 
CABC 1640 
CaBC 1 65C 
CABC 1 66C 
CABC 1670 
CABO 169 ? 
CABC 169C 


CALL FR ICT 111 CA9C17CC 

C ZEPO CABLE EJECTS FOP CABLELESS MODEL OPTION CABC 1 7 1 C 

I e (KODE( 13) .NE.-l )G0 T 62C CABO 172? 

IFCKODE(O) ,NE.3)rfRI T E( Iw»22) CABC173C 

22 t 'ORMA T ; 5X* «K3r>F(o ) has BEEN SE T BY PFOG TO 3 Fqp CABLELESS MODEL CCAB?174? 
1HAC ACTEP 1ST ICS* ) CAB?17SC 


K00E( « ) = 3 
PO 2C J=l, 3 
DO ?0 < = 1,3 
SNUOt J.K ) = : . 
2C PX 3( J, K )=C , 
03 21 J = t. 3 


DO 21 K = !,6 

21 es IC( J , < ) = “' • 
G3 T3 620 
„_,6lj2 CONTINUE 

<3DE< 16) =C 
03 61? 1=1, 3 

00 61* J=1 , 6 

610 FR ICC I , J ) = ? . 

DO 611 1=1.3 

DO 611 J= l , 3 

SNUI l. J)=0. 

61 1 snuoi i . j) = : . 

DO 6CC IC=:,4 

03 606 1=1 . 1C 
00 6C5 J=l , :r 


CA3C176? 
CABC 177? 
CABC 178? 
CABC 1 79? 
CABC 1 H ' C 
CABC 1 A1C 
CABC 1 92C 
CABC1B3C 
CABC 1 B40 
__ CABC 165? 
CABC 1 B6C 
CA3C 1 67? 
CAB* 1 990 
CABC 1 b 
CA 801O3C 
CABC 191? 
CABO l 32? 
CABC 1 33" 
... _ CABC 1942 
CABC 1 ^5C 
CABC ! 9 60 


6C 5 DUMCI,J|=*, __ . ... . _ 

t c = 7F— TR 4TUSN3 
1 R( IC • GT , 2 ) TC = TUSNO 

CA1=C3S( ADC( IC, 1) ) ........... . 

CA2 = C?S( AOC ( IC , 2 ) ) 

CA3=C0S< AOC ( IC, 3) » 

_ I F( ABS( CA1 ) ,L T. .???!) CA1=C._ _ _ 

IRCABSCCAS) ,LT,.?.3Cl) CA2 = C, 

I-( ABS( CA?) .LT..CCC1) CA3=C. 

. _ DUMC 1, 2 ) = -TC*CA 1 
OUM1 1, 3)=TC*CA3 
OUM( 1, 4)=CA2 

DUM< ’,6 )=-*"C» S INCACCC IC » 2 ) ) 

CJM( 2, 2)=( apm( ic. 1 )*DUM{ I , 2 )-ARM( IC,2) *TC*CA2)/12. 
OUM( 2. 3) = A = M ( IC,l )*DUM( I, ?) /l 2. 

CU'M ? . 4 ) = ( AR **• ( IC, l )*CA2-ARM( IC *2) *C*1 ) /I 2, 

OUM( 2. 5 )=ARv< IC, 2 )* TC* SIN( AOC ( IC , 1) > /l 2, 

DUM( ?,6) = ACM( IC.l )»DUM( I ,6)/l 2. 

0JM( 3. 2 >=-ARm< IC. 3)*?U v ( 1 « 2) /I 2. 

DUM( 3, 3 ) = < - ARV( IC . 3 )*OUM( 1 ,3 )-i=*'(IC,2) *TC*CA2) / X 2 . 
D*JM( 3, 4 )=( ATM I IC, 2)*C* 7- ARM { ic ,3)*CA 2) /12. 


CABC 1 9T? 
CABC 109? 
CABC 1 
CABC2200 
CABC 2? 1C 
CAR? 2? 2? 
CABC 2C 3* 
CAB? 2*>Ar 
CAB? PCS'* 
CABC 2C6? 
CAB? ?0 7? 
CABC 2C 9? 
CABC 2C 9 r 
CABC 21 ?C 
C AOC 2 1 ! ? 
CABC 21 20 
CAB? ?: .30 
Cabo 2 i a? 

C AOC 2 1 S'* 
CABC Z V *»? 
C ABC 217*. 
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i 


GRUMMAN D A T A 

D'.IM( 3.7»=-ACM( tC. 2>*TC*SINIA0C< IC.3))/t2. 

DJM( 3. 6)=-A^m( IC. 3)*DUVC 1.6)/12. . 

0 JM( 4, A ) =- 1 . 

DUM(A. 8)rA<<SNU» 12. 

I-1IC.GT.2) DUM(4,8)=AKSNL*12. .. . ... _ 

CALL DC3S0< |C .OUM ( * . 1 ) .0 0* { 5.21 .OUM ( 5 . 3 ) «OUM( 6 . 1 ) .DUM<6 ,2) • 

1 DJ*( *, 3) , Du*( 7, 1 ),3UM( 7. 2). OUM (7, 3 I ) 

D')Y{ 5. B>=- l . 

OJM{ 6. A )=- 1 . 

DL'Mt 7.7 >=- l . 

OU*( 8. 8» =- l . 

CALL 01 Gth( ru»M rt. 1 ) .DUMC 9, 2 ) .OUM ( 8.3 ) . IC. 1 ) 

CALL MASH(3.«» 

00 *49 J=1 , 3 

00 640 K=l,3 

64<A FXSC J.K )sfKS( J,< l+CUMl J,K| 

f 60 C CONTINUE . . . ... 

I C ADD AeOO INCREMENTS 
? 620 Q= .5*RH0*V0*VC 

. .... QS=0*SW 

I=( VO .NE.6 • )QSV=DS/VO 
, IFCVD.EQ.? • )OSV = 0. 

<= IF( VO ,N.f .*> . )-?0V==>/{ 2.* VO ) ._ . ...... 

IF< VO.EQ.C . )BCV=0. 

YVsCYRO* - )* V 

ELV=CLOP*DSV*B 

ENV=CNRO*0SV*R 

Y=>=CY»P4DS*9DV 

ELP=CLPP*90V*0S*3 ... 

ENP=CNPP*9D V*0?*B 
Y C =CY~P*'3S* 30 V 
FL==CLPP*H0V*0S*9 
EN= = CNRp*8DV*0S*9 
YDR = CYOPP*OS 

ENDR=CNDR 3 *0S*0 _. . _. 

FL OR = CL 000*08*8 
YDA=CYDAP*DS 

ENDA-CN0AO *QS*3 

FLDA=CLCA->*QS*3 
Y 08-CY DF°* 0 S 

fn03=CN03 3 *QS*8 . ... 

ELDS* CL nS^*0S*9 
4203 113 1*1.14 

DO 113 J*1 . 14 
DO 118 K * 1 . 3 
1 1 3 C '■* A T ( I , J.K )=C .C 
C.. Y FORCE EOU A T I ON 

CM A T ( : . 1 . 1 )=-FXS< 1.1) 

CMATI 1, 1 ,2 )=-YV-5NUD< l . I )-FK|CCl ,4)-FP|C( 1 . 1) 

CMA*( 1 . 1. 3 )=AM 

CMAT< 1 , 2, 1 )=-FXS< I . 2) ♦YV*VC-WT* SI N< THE TA ) 

C Y A T ( 1 , 2, 2 )=-YC-SNUD( 1 » 21-FFIC ( 1 .5) -PC IC(l .2) 

CM A T ( l.2,8)sAM*XCG/l2t 
C ’A T ( 1.3.1 )=-“x8( 1 . 3)-* T *CCS( T HTT*) 
i C A AT( 1 , 3. ? Js-vn-S'juDi 1 , i)-reKI ! .O-FRIC I 1 .3) 


FILE*. CABLE 


FORTRAN T» 


S Y S T E m 

CA3C 219C 
C ABC 2 1 DC 
C ABC 22 r ' r ' 
CABC 221 0 
CABC222C 
CABC 2 2 3“ 
CABC 224C 
CABC 225C 
CABC 2 26F 
CAOC 22 7C 
CABC 2280 
C ABC 2 ?RC 
CABC 2 3 3? 
CABC 231 : 
CABC 232C 
CABC 2330 
CABC 2 34C 
CABC 235' 
CAa02-»60 
CA30237C 
CABO 2 390 
CARC23RC 
CABC 240 C 
CABC 24 10 
CA3C242C 
CABC 2430 
CABC 24 4? 
CABC24SC 
CABC 246C 
CABC 2 A 7 0 
CABC 2490 

cab? 24 a: 
CABC250C 
CAB? 251 C 
CABC 252 ‘ 
CAOC 253C 
CABC 284 r 
CABC 255C 
C AO? 2 56? 
CABC 257? 
CA9C258C 
CABC 25 A? 
CA9C 26C' 
CABC 26! C 
CABO 2620 
CABC 2630 

CABr 264' 

CABC 265? 
CABC 2*60 
CABC 267? 
CaBC 268- 
CA8C 2*9'“ 

C ABC 2 7 0 : 
CAB? 2 -'l : 
CABC 28?r 


S 


t 
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FILE? CA3LE FOR TP. AN T1 GRUMMAN 

CMATf 1 , 7, 3 ) = -AM«7CC-/l 2 • 

C YAW SOLUTION 

CM*t( 2,1, J Is-rx5( », j) 

CMAT ( 2.1.2) =-FNV-?NU9< 2.t)-FPIC(2.4)-FRIC{2.1) 

CMA-f 2. 1. 3)=AM*XCG/12. 

C !A T (2,2,:)*- C XS(2, 2 ) f ENV* VO— XCG* WT* SI N( Thpt A )/i 2 . 
CMAT < 2.?,? )s-ENi=-?SLO( 2»?>-FOIC(2,5)-ERIC{2,2) 

CYAT{ 2, 2. 3)=Z I2Z ... 

C«A T ( 2.7.1) s-PXS( 2. 3)-XCG*WT*COSC THFTA) /I 2. 

CM AT ( 2, 3.2 ) s-r.NP-SNUDC 2. 3) -FPI C ( 2 .6 ) -F R I C ( 2 , 3) 

C M A T ( 2.7.3) X I X Z 
C BOLL EOJATIOSI 

CMATf 3, 1 , 1 ) =--XS( 3. I ) 

. C"AT( 3 , l,2)=-£LV-SNU0{ 3.1)-BSIC(3.4)-rciC(3.1) 

CMA T ( 3, 1,3 |s-AM*7CG/12» 

CMATf 3,2.1 )=-BXS( 3. 2) *ELV* VH+7CG*WT*SI Nf THETA) /l 2 . 
C*A-f 3, 2, 2 ) =- EL ° — SN UD ( 3. 2) -BP I C C 3 .5 )-ps I C ( 3 .2) 

CMATf 3 , 2, 3 )=-X IXZ 

CM A T ( 3, 3,1 )=- p XS( 3, 3)-*-7CG* WTWCTSI THETA) /I 2. 

CMA"-( 3, 3, 2 ) =— EL=-SNLO( 3.3J-F9IC (3 .El-FKI C(3.3) 

CMAT { 3. 3. 3 )=X IXX 

C ACTIVE CABLE CONTROL EQUATIONS 

I=(KODE( 13) .NS. 1)33 T2 30 

I=f KOOEf 6 ) .EO . I .OB •K-’OEl 6 ) .EO. 4)30 TO 46 
I 22=2 
IC1 = 1 
GO TO 47 
46 IC2=A 


DATA SYSTEM 

CAB0273C 
CAB: 274 * 

C ABC 2 750 
CABC 276C 

CABC 2772 

CAar 27fl3 
CABC 2T7C 

. . caq:2b:c 

CABC 2*3 1 C 
CAOC2M2C 
CA3C233! 
cabc2«a: 
CABO 26 3C 

... cAa:2»3s: 

CA902B7? 
CABC 2B3C 
CABC2P9" 
CABC 2900 
CABC 2oir 
CA3C292C 
CABC 29 3C 
CA8C294C 

. . .. CABC 2952 

cabc : 
cab: 297c 
CABC 29 -30 
CABO 299 ! 

cabc 3:: : 


ici=t __ cab' ?: : : 

47 CVATJ 1 . 1C. I )= cost ADC ( ICC. 2) ) -COSt ACC (IC1 .2) ) ) CABC 3 r 2" 

C«A*( 3.:3.1) = 4 (A=m( I C 2.2)*COSCA0C(IC2.3 ))-ACv(IC 2.3) »CQS( AOCf IC2.2CA° r ? * "* " 
1 ) ) )/l2.-( A-MC IC 1. 2)*C2 S( A0C( IC 1 .3) )-AP M(ici .3) * v OSf AOC( I Cl . 2 ) ) )/ 1 2C ABC 3' 4 T 
2. • CA3C2C5: 


C M A T ( 2. 1 :. 1 ) = +{ A= M( IC2. 1 )*C OS( ABC (I C2 .2) ) -*c .2.2) *COS ( ACC I I C2. 

. 1! ) ) )/l 2 .-( acm( IC l , I )*COS( ADC( IC 1 .2) )-ACv ( IC! . :)*C3S< ADC( 122,1) 

2) ) / 1 2 • 

C EO. 0= M3TOP OYN. 


CAB<* 3'60 
C ABC ?: 7- 
CA30 3 r 
C ABC 3T a" 


CMAT( 4, 4, 1 ) =72. » c coa 
CM AT ( 4, 4, 2 ) = +2.’«= S°0*ELSB4 
CMAT(4.6.I)= + A<33 t* 2. 

CMATf 4 , 5. 2 ) =- AK SB""* 2. * A< SB V— GO MO* C SB A 
CMA T (4,S,3) =- AJ5SM*PSBA-GCMP*-LSBA 


CABC 31 OC 
CABC 3110 

cab: 31 2 : 
cab: 31 3 C 
cab: 3i4.: 


CMAT( 4 , 7, 3 ) =— A JA 3 '« EL SB A 


CAri: 31 5' 


CALL DLGTh( CMA’( 5, 1 , 1 ) ,CMAT( 5 , 2, 1 ) ,CMAT(5.3 .1 ) «IC1 .1 ) 
CMATf 6. 5. 1 ) = «-=S30/l 2. 

C EO POO TOTAL VOL t AG==ACT I VE SYSTEM+INPUT VOLTAGE. EMO 
CMATfO,6 t l)*-i. 

CMATCP.g,: )=! . 

CMATf 9 , 1 1. I )= 1 . 

C FEH03 AC< C r, N T POL EO. 

CM A T ( f,, 2 , 2 ) =A 
CMAT( 6.5. 1 ) =AKY 
CMATf 6.7,1 )sAKY5 
CMA-( 6.9, 1 ) =- 1 . 

C RELATE ANGULAR PATES Tj ANGULAR DISPLACEMENTS 


CABC 31 6' 
CABO ?! 70 
CABO 3! BO 
CABC ?! 9' 

c ab" ■*:: c 

CAP" 3^1 * 
CAB" ??20 
CABC 39 3'" 
CAD? 3? 4 fl 
CAOC 

CAB' 7?6? 
CABC 7 ? 7 C 
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i i ! 

e IlE* CABL5 n»T54N T 1 


G 5 u M M ^ M 


CMAT( 5,2,?)=! . 


c 


i C 


CMAT(a. «, 1 )r-l . 

CMAr( 7,5.21=1. 

CMAT( 7,7, 1) as- I. 

pela-ion of nrc T o pt and otfb 
cmat( : c,4, i >=i , 

C*'AT( ic , 10, t )s! . 

caat( i? f i2, n=-i, _ _ 

GO TO 31 

PUDOcC FEEDBACK LOOP 


30 rvl *^( A,?,2)=i<sv 
C JIA-( 4,4,2 »s-T?SY 
CM AT ( 4,4.1)=-!. 

C AILERON PE£0«?ac< IDT 3 

CMATI 5. 3,2)=AKPHI 
CMATC5,5.2)=-T23HI 
C*A^( 5.5, 1 )=- l . 

CMAT( 1,4,1 )=-0?*CVD»» 
CMATI 1 , S. 1 »=-OC*CVP43 
CMA t ( 2, 4, 1 )=-0S*3*CNOCP 
CMAT( 2,5, 1 )=-OS*B«r ;oAD 
CM AT( 3,4,1 laa-OS^BACLDPP 
. . CMA^C 3,5, 1 )=-O«*0*CLDftP 

31 I-(<Onp{ 16) ,£0,0) GO TO 32 


C S'JBET. CCL IDX INTO CCL ICN TO G“ T NUMr PA TOP 
I o* =KOCE{ 16) 


ION=<OOE( 17 ) 

IP( IDX ,GT. 1 3)G0 TO 3fl 
PD 34 1=1, 14 

CO 34 K= 1 , 3 

BMAT( I,K )=CMAT( I, IDN.K) 

34 CM ATI I , IDN.K )=-CMAT( I , IDX.K) 

GO TO 32 
35 OO 37 1=1,14 

DO 3’ « = !, 3 

5MATI I ,K > = CMAT{ I , IDN.K ) 

3 7 CMAT( I, ION,K)=: .0 

l e ( ICX .00. 15)C.Q TO 39 
!=( IDX ,EQ. 16)G0 TO 41 
C M A T ( 1 . IDN, ! ) =Y09 

CMAT( 2, ION. 1 ) =END C 

CM AT ( 3 , IDN, 1 )=OLDP 
GO TO 32 

30 C*1AT( 1 , ION, 1 ) =Y^A 
CMAT( 2 , ION. I )=ENDA 
CM A T ( 3, ION, ! )=ELOA 
. . . GO T 0 3? 

41 CMAT( l , INC, 1 )=YV 
CM AT ( 2 , ION, 2)“ = NV 
CMA'I 3, ION, 1)a=LV 
3? N=KO0r(9) 

CALL M ATP IY ( CMAT,N,PDCT5,K4A,IFO) 
!F(Oor( if, ) .r.o.c ) GO Tn 35 
DO 3^ 1=1,14 

00 36 K = l,3 


PQOTS 


! 


DATA SYSTEMS 


C ABC 32'VC 
C ABC 3290 
CABO 330 0 
CABO 331 C 

.. CABO 3320 

CABO 3330 
CAB0334C 
CABC3 35C 
CA3C 3360 
CABO 3370 
.. C ABC 3 ? 3 * 

CAB'* 3390 
CABO 340 0 
CABO 3*. 1C 
CABO 34 20 
C ABC 34 3 0 
C ABO 3440 
CABO 3450 
CABO 34 60 
...... CABO 34 "*0 

C ABC 34 5 0 
C ABC 349C 
C ABC 35'''* 
C ABC 35! C 
C4BC 3520 
CABO 3530 
CABO 354C 
CABO 3550 
CABC 356C 
CABO 357,' 
C4BC 3550 
CABO 3590 
CABO 360 0 
CABO 3610 
CABO 3620 
CABC 3630 
CAB'* 3640 
CABC 3650 
CABO 366 0 
CABO 3670 
. . CABC 363 0 

CABC 3690 
CABC 3700 
CABC 37 10 
CABC 3720 
CABC 3730 
CABC 3740 
C A BO 3 t 6 0 
CABO 3 T 6C 
CABC 3770 
CABC 37E0 
CABC 3793 
C AB** 3 3-* 0 
CAH* 3 5 1 C 
CABC 3320 
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FILE- CABLE F3PTCAM T 1 


GRUMMAN 


DATA 


SYSTEMS 


36 CMAT( j, JON.K )=a-4AT( I.K) 

C 35 I“<KODE( SI.NF.O » n*F I TE ( I «. 1 C 0 ) IEP 

C IC' = 3S«ST( 2X« • ’ = = = • , I 3,3X, • S r F SlJGP . PQFB AND PP3M FOP EPCOF COD^*) 

C THE PQOTC OF t H e CHARACTERISTIC EQU4T. APE IN THF COMPLEX ABOAY 
C ... •FOOTS* AND THE NUMBER. OF FOOTS IS *K4A« 

35 K A A=< A A- 1 

CALL DP INTC ( IW.PPO’S. K44 I 

. .. - I e < <ODE( 3) .NE .2)RETU= N _ . .. 

I-(KOCE< IF) .EQ.O )GO TO 44 
*D ITF( IW,43 > 

43 c 3 cmaT(//« COMMUTATION O c THE DENOMINATOR BOO T S*//> 

L<ODF = KCDF( 16 > 

KODEt 16)=C 

CALL FF EOI ( P00T3»K4A«C4( K4A ■*-!>) ...... 

GO TO 42 

44 KOCEC 15 )=L<OPF 

CALL P C E02( =00T3.K4A.C4(K4A + 1) ) 

PETUPN 

END 

...... SUBROUTINE DCOSDt IC ,CY1 .CPSI 1 .C2HI1 .CY2.CPSI2 .CPHI2.CY3 .CPSI3. 

1 C° HI 3 ) 

COMMON /OL YCHA/P TO, XL GTHt 5 ) , AOC ( 5»3) .A PM < 5 , 3 ) ,TP,TLFT,TP 

I“tABS( ADCt IC.3J-3. 14159). GT..COGC1)GO TO 2 . . . . 

X7AL=1C"0. 

GO TO I 

2 XV AL=CO T AN( 4DC( 1C* 3 ) ) 

X x* T =ACM( XC. 1 ) 

VWTrAQMj IC. 2) 

ZWT=ADM( IC, 3) 

CYI=-CO?( AOCI IC.2))*CBTAN(AOC(lC.l) )/XLGTH( I C > * 1 2 • 

CPE I 1 =-( Y«f' r *SIN( AOC( IC . 1 ) > + XrfT*C0S< AOC ( IC ,2 ) )*COTANC ACC( IC, 1 ) > ) 

_ :/xlgth( 10 

C a HI 1 =( 7M T *C0S<ADCC IC » 2 ) )*COT4N(ACC(IC ,1 ) ) - YWT*C OS ( ADC < IC.3 ) )* 

1 CO T AN ( ACC( IC, ’ ) > ) /XL G TH I IC » 

CY2=SIN( AOC( IC, 2) )/XLGTh(IC»*12. 

C°S I 2 = ( Y’XT* cost ADC ( IC , 1 ) ) * C OT4N ( ADC C I C ,2 > ) «- X wT*SI N t AC C ( I C * 2 ) ) >/ 

1 XL GTH( IC ) 

CPMI2=-( 7WT*3 IN( ADC( I C , 2 > > +YWT*CO S( ADC { I C . 3 ) ) *COT AN ( ADC ( I C • 2 ) ) ) 
1/XLGTH( IC> 

CY3 = -Cn«( AOCt IC, 2) >*XVAL/XLGTH< 10*12* 

C°SI3=( YW T *COS( AOC( IC , 1 ))*XVAL-XWT*CCSt *OC( IC.2 ) ) * . . .. 

1XV AL )/XLG t H( IC ) 

CPHI3 = ( ZW*« C0*( ADC C IC » 2 ) )* X VAL+ YW T* SI N t AOC ( IC.7) > > 

I /XL G T Ht IC) 

RETURN 

END 

SUBROUTINE SN TC m (F-XSN,' ? ZSN,AMSN,THFTA) 

COMMON/INCUT/Iw, ir 

COMMON/OAT/Ar cn ( !75), A=PQO(5C) ,<CCE(26),LL 
COMMON 7 77 t - ) 

COMMOm/taR! /77( B 0 p » 

COMMON/SNUBR/SNUt 3* 3; , SNt 3C ) , THU5N , THL SN.SNUD (3,3) 

= 0'JIV ALENCEt Ar=0( 1^5) , SNUX> ,( AE=C( 1C5 ) , SNUY) , ( AERO( IC 7 ) , SNU»‘, 

1 (45—3(106), SNLX ) , ( A^FC ( 10 4) , S\LY) ,( \t C p( l U » ♦ S NL/ ) 

2 (mEPO ( 1 1 : > . SNUST) , ( APCDt 1 1 2 ) • SNU#L> • ( AFFOM ! 3) , SN'JBL ) 


CABC 35 Ar 
CABC2B4C 

c ah; ?bs; 

C*BC 3860 
CABC 3370 
CABP 3H80 
CAB03B9C 
CABO 390 0 
CABO 39 1 0 
CABC 39 2C 
C AOC 3 ? 3 0 
CABC ? RA 0 
C4BG 3950 
CABO 3 950 
CABC 3970 
CABC 39 BC 
CABC 39 PC 
CA3C4CCC 
CA3340 IC 
CABC 4C2C 
CABC 40 3C 
C AB04C40 
CA8C4C5C 
CABC 4 C 60 
CABC 40 7 c 
CABC 4' 30 
CABO 4' 90 
CABC 41''' 
CABO 41 I 0 
CAB 0*120 
CABC 4 ! ~r 
CABC 4 1 4C 

CABC * 1 5C 

CABC 41 6C 

CABOA’Tr 
C ABC 4 1 50 
C AB 1 * 41 A' 1 
CABC 420 T 
CABO 4 ? 1 C 
CABC 4 2 20 
CABC 4270 
CAB'" 4?4C 
C ABC 4250 
CABC 426 * 
CAB'' 427C 
CABC4250 
C*B r C * l r 
CABC C O 2 r 
CABO 00 3C 
cab: co4r 
CABO** 0 60 
Cabo 0 ' 6 : 
r a r> r r * 7 ' 

, : ab" : ' 

1 c A30 : 'r * 
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) 


p ile: cable 

■3 

4 

5 

6 

7 


p-)RTPAN T l 

C AFOQC 114), 5NLST ) 
(AECDC 1 17). TUSNO) 
C AERDC 12C ) » AKSNL ) 


GRUMMAN DAT A . S Y $ T E M S 


( AE^OC 1 1 5) , SNL*L> * ( AERO (1 16) .SNL9L) 
( A?cr>{ 1 1 9) . TLSNC) .( AF-C( 1 1<?) . AKSNJ) 
( AE C D ( 4<5 ) . VO) * ( AE PC ( 5 1 ) • SHO), 


( AE=D( 76 ) • WLCR 
{ AE^OC 78) .BLC = 


.t AERO(77) . STACO • 


I -(KOCEC ir ) .EQ.O ) GO TC 6CC5 
!P(<?DC( ir ) .EQ.3) GO Tq 5CC5 
CALL OCCSN( ▼H^TA ) 

IKKDDEC !0 ) .NF. 1 ) GO TO 5CC3 
.TERMS- tq MODEL SNUBBEP E-FECTS ( MODEL UNSNU3BED) 
Q= ,5*RH0*V0«V0 

CALL STNTCO.aLU.'?, 1, 1 .TUSN.NG) 

IF(NG.NE.O) GO TO 50C 0 __ 

CALL STJNT (0, ALL. 2, 1, 1 . ^LSN.NG) 

IF(NG.NE.O) GO To 5C0C 

CAL- STINTC 0. ALU. S. 2. 2.THUSN.NG) 

IFCNG.NF.*) GO TO 5000 

CALL ST In t ( 0* ALL . 0 . 2. 2 « ThLSN » NG ) 

... - IKNG.EO.: ) GO TO 50C1 . - 


500 0 
500 2 


*5 I T F( 1 fc.s*' 12) NG.ALL.ALU.O 


,=CC0R IN SMUBAEP TABLE 1-2 


nCMAT( 2X, 

RETURN 

5001 CONTINUE 

: CALCULATING FOPCE ANC MOMENT E ee ECTS 

call of cus'ic theta > 

RXU3N= ?.*T|JSN*GX1 

=7USN= 2.*TUSN*G71 

AMUSN= — C XU SN* SNUZ + SNUX*~ ZUSN 

FXL SN * 2.* -r LSN*GX3 

FZLSN= 2 • *TL SN* GZ 3 

AMLSN= FX_SN*Sf‘:LZ+FZLSN*SNLX 

FXSN = FXUSN+FXLSN 
PZSN a FZUSN+F7LSN 
AMSN =( AMUSN+AMLSN )/12. 

P "TU C N 

5003 CONTINUE 

; TEFM5 -0 MODEL SNU3BFR EFFECTS (MODEL SNUBBED) 
=XUSN= 2 • * T USND * GX 1 
F 7 llSN - 2 » * T'JSND* G K 
AMIJSN =-b X j sn* SNUZ + FZUSN* SNUX 
= XLSN= 2 • * TL SNO * GX 3 
F7LSN= 2.*TLSN0*GZ3 
AML SN = Fxl SN* «NL7<-F7L SN*«NLX 
F X SN = FXll 3N A r XL SN 
r r.N = e 7USN *F ZL SN 


NS=».I3.3E1?.3) 


. CARCC i:c 

. cab^c 1 : 0 

CABCC 1 20 
C ABC 0 1 30 
CABCC14C 


EOUIV AL ENCE 

( SN { l) 

* GX1 ) 


(SNC 2). 

GY1 ) 

.(SNC 3) 

. GZi). 


CABCC 151 

1 

( SN( 4) 

, GX2) 


(SNC 5). 

GV2) 

.(SNC 6 ) 

. G 72 ) • 


CABCC 160 

2 

< SNC 7) 

. G X 3 ) 


(SNC 8 ). 

GY3) 

.(SNC 9) 

* GZ?). 


CAB* Cl 70 

3 

I SN ( 1 0 ) 

. G X 4 ) 


( SNC 1 1 ) . 

GY4 ) 

. ( SNC 12) 

. G74 ) « 


CABCC 1 AC 

4 

( SN ( 13) 

* THU) 


( 3N ( 1 4 ) , 

THL) 

» C Sn (15) 

. ALU). 


CABCC 1O0 

5 

( SN( 16) 

. ALL) 







C ABC 0?'-F 

6 

( SN( IQ) 

, T HGX 1 ) 


( SNC 20 . 

THGY1 ) 

. ( SNC 2 1 ) 

. thGZI ) . 


C ABO C 2 1 0 

7 

( SN( 22) 

« T HG X2 ) 


( SN C 23 ) , 

THGY2) 

, ( SNC 2 A » 

. THG 72 ) • 


CABO C 22 r ' 

e 

( SN ( 25) 

.THGX3) 


(SNC 26). 

THGY3 ) 

. C SNC27) 

. T HG z? ) , 


CABO C 2 7C 

<? 

( SN( 2 A) 

.-HGX4) 


( SNC 2 Q> . 

THGY4) 

. ( SNC3C ) 

.THG74 ) 

- 

C ABC C 24 C 


CABO 0 2 5 r 
CAS^CEFC 
C ABC C27C 
CA9C C 2 AC 
CA80C2RC 

CABOF-jda 

CABO 0 310 
CABCC 320 
CABCC 330 
CABC 03*0 
CA30C35C 
CABCC 36C 
CABCC 3 70 
CAOC C 3 AC 
CA-3C 

C ABC CAOC 
CAHC C 4 1 Z 
CAST C4? r 
CAB0C4 7C 
CABCC 44C 
C ABC C 45C 
CABO C4 6 C 
CABC C47C 
CA 8 C C4 SO 
CAHCC4QC 
CABCC 50 C 
CAB0C5K 
CABO 0 F ?C 
CABCC 5 7C 
C ABC CSA'* 
CABO C55C 
C ABC C 56C 
C ABC •*S7C 

Cabo c a ac 

CABO 0 5 ar 
CABO 0 6 " r 
CABO C A J 0 
C AP r '••'-2^ 
C AB r c 6**r 
CABO C 04 r 


75 


... ft 



1 


FILEC CABLE 


FOR T^AM T 1 


GRUMMAN 


DATA 


SYS 


E y S 


AM SN = ( AMUSN«-AMLSN)/1 2. 

RETURN 

5005 r X 5N = ' 

RZSN=0 

AMSN=0 . . . . . 

R^TUSn 

END 

SUBROUTINE LONG SN 
CO MMON/ INCH J T/ |w, 1 = 

COMMDN/DAT / aE- ~ ( I 75 ) . AE3QP< 50 ) . KODE(26> ,LL 
C0VMQN/SNJB3/SNU( 3. 3) , SN( 30 ) , THUSN.THL 3N • SNUD (3 .3 1 
COMMON 777 ( 2C * > 

COMMON/ r Art 1 / LZ ( 3CC ) 

C3M«3N/DU/DUM( 1C. 10 ) 

EQUIVALENCE! A£R 3( 1 05) . SNUX ) , { AERO ( 1 C6 ) • SNUY) . ( A E R 7 ' 1C 7 ) * 
1 (AERD(lCa). SNLX) , < AFRO( IC9) . SNLY) »(ACC0(1 1C ) 

.. . 2 ( AFR3( 1 11) t SNUST) t ( AER0(1 12) t SNO mL) 

3 C AERD( 1 1h ) . SNLST) , ( A e t 0 ( ! 1 5 ) . SNL ML ) 

4 ( AERO ( 1 17) , TJSNO) . ( AER0( 1 l 9) . TLSN'D 

5. CAERD(12C)»A<$ML) i ( A‘-C1(49) i VO). 

6 ’ < AFB3( 63) , THETA > , ( AECr(l 21 > .AOSNU) . 


EQUIVAL ENCE 


1 

2 

0 

4 

5 

6 
7 
9 
9 


GX1 > 
GX2) 
GX3) 
G X 4 ) 
THU) 
ALL ) 


<SN( 2), 
( SN ( 5 ) » 

<SN( 9). 
( SN( 1 1 ) , 
( 5N( 14) , 


GY1),(SN( 3) 
GY2),(SN{ 6) 
GY3) , ' SN( o) 
GY4 ) , ( SN( ! 2 > 
THL ) . C SN (15) 


(5N(2C> * THG Yl ) . (SN(21 ) .THGZ1 ) 
( SN(23 ) ,ThGY 2) t ( SN( 24 ) ,thG72 ) 
( SN( 26) , THGY3) , ( S\(?7) . THG 73 ) 
(SN(29) .THGY4) . ( SN( 3 C ) .THGZ4 ) 
3) 


(SN( 1). 

( SN( 4), 

<SN( 7), 

( SN ( 1 O ) , 

(SN( 13). 

< SN( 16) . 

( SN( 19) .THGX1 ) 

( SN( 22 ) . r HG X 2 ) 

C SN( 25) .THGX3 ) 

( SN( 29) » T n G X 4 ) 

DIMENSION ?,?),FfcOT(3 

COM A ) = 1 • / T AN ( A ) 

DO l'Cl 1=1.3 

DO lO'M J=!,3 _ _ . 

SNU( I. J > = 0 
SNUD( I . J ) = " 

DO 510 2 1=1,1? ...... 

DO 5102 J= 1 . 1 0 
DUM( I, J )=" 

I-( <ODF( 1'* ) ,N e . 1 ) GO TO 10C0 
C TERMS ROR UNSNUB«=D SNU3BER EFFECTS 
00 1004 1=1,7 

DO 1004 J= 1,7 
DUM( I , J ) =6 
CALL DBCUSN( THE t A ) 
miM(l,-*)= - 2.4T'JSN0*CZ1 

- 2, *TUSNO* SI N ( THG XI ) 

2 » * GX I 

2.*TU3N0*GX I 
- 2.*TUSNO*SIN( THGZ1 ) 

2 . * G7 1 

( -SNU T * DUM ( 1 , 3)*SNUX*0UV(2 ,3 ) )/l 2. 
-SSUZ*TJV( 1 ,4)/I2. 

SNUX«OUf’< 2,5)/l 2. 


. { AERO (113) 

♦ ( ; '0( i im 

. ' A c 30 ( : 1 5) 
( A£C0(5l ) . 

( AEt ,< 12 2) . 

GZ1 ) . 
GZ2) . 
GZ3 ) . 
GZ4 > , 
ALU) , 


S NU 7 ) , 
. SNL7) 
. SNJ9L) 
.SNLBL) 
. AKSNU) 
= 40), 
ADSNL) 


100 1 


510 2 


(LONG) 


1004 


PUM( 1,4)= 
DJV( 1, 6) = 
D’JM( 2. 3 ) = 
DUM ( 2,5)= 
DUM ( 2,6)= 
r> JM( 3, i) = 
DU M ( 0,4) = 
"UM( 3.6)= 


CAB" „ 65C 
CABC 0 660 
C AH' C 6 7C 
CAOC 0630 
CABC 0 6 0 0 
C ADC ■" t 0 n 
CABC C 71 0 
CABC 0 7 2 C 
CABC C > ' r 
CAOC C^4C 
CAGCC 75 : 
CAB CO 7 6*- 
ca 6<: :??c 
CA60 C TSC 
CAB'S 7S0 
, cabc o a : 0 
, CABC 0 9 1 r 
,CAB'C.4?r 
« C A 30 C B 3C 
CABC : 34 c 
C4BCCB5C 
CABOC B 6 C 
CABC "B^C 
CABC 0 °30 
CABC ‘ 
CAE"' 'ROC 

C A3C 0910 
C4B0092T 

cabc 

C ABC "940 
CABC orbo 
C ABC C )6 C 

CABCCRTf 

CABC C 9 3C 
C A P C r 9 9 r 
cahc 1 : :: 
CABC 10 1 : 
CABC 1C2C 
cab: 107 " 

CABC 10 4 0 
CABO 10 50 
CABO 1060 
CABO 10 70 
CABC 

CABC 1 S BO 
CABC 1 IOC 
C A9C Hi*' 

Cast 1120 
CAHC l 1 7" 
CARC 1 1 A f 

Cabo : 1 r ' 

CABC 1 1 60 
CAB* l 1 t- 
Cah; ; : 

c 4 do ; : )* 


* 




1 


! 


PILE 1 * CXBLE F?ctPAN t 1 


500 ? 
5 vj 0 2 

5001 


1 0C 5 


DUM( 3. 6) = ( -SNUT*DUM( 1 ,6)*SNUX*DUM<? ,6) ) /I 2. 

00M(4, 1|S(S1N(THGX1»/ALU»*12. 

OUM( 4.2)= (-GZ!*C0T(THGX1 )/ALU)*l 2. 

DUM ( 4.3)= - 3NIUZ* S IN( ThGX D/ALU- SNUX4G Z 1 *C 0 T ( THGX1 )/ALU 

0'»m(a,4)= -1, . 

DUM( 5. : >= ( -GXl*COT( THGZ1 )/ALU)*l ?. 

DUM{5,2> = ( SIN( THGZ1 )/ALU)*12. 

DJM(5.?)= 5N'JZ*GXl*C0 T f THGZ1 ) /ALU ♦. SNUX*SI N( TMGZ1 )/ALU 
DUM ( 5,5)= - 1 . 

CALL DCCSN( THETA) 

Q= ,q*r,HO*V~'*VD 
ALU 1 = 4LU + 1 . 

CALL S T INT< Q, AL J1 ,C . 1 . 1 .TUSN1 ,NG> 

I C (NG.NE.‘' ) GO T : 5CCC 
ALU2=ALU-1 . 

CALL ST In t (O, ALJ2.C * 1 . 1 .TUSN2.NG ) 

IF(NG.FO.*'> GO ?3 5CC1 
^SITEC IW.SC*2) WG.ALL.ALU.O 

= 'i;\<A T ( '«P1C IN TA9LF 1-2, NG = * . I 2.3XEI C.3 ) 

c.-TUPN ... 

CONTINUE 

aKTU=( TU 5Nl- T USN2)/2. 

DJM( 6, * )= - 1 . ..... . . ._ .. . 

DUM( 6, T ) = AKTU* 12. 

OUM( 7,1)= - GX l 
DJM(7,2>= -OZ1 

OUM( 7, =) = ( ( -SNUX4-ALU* GX 1 ) *G7 1 - ( - SNUZ* A LU*GZ 1 )*GXl )/l2. 

DUM (7,7)= - l , 

CALL MfSHH, 7 ) 

DO 1 ? C 5 1 = 1.3 
no l 0 C 5 J= 1,3 
~ro°{ I . J > = DUM ( I, J) 

CALL D=CUSN< THcTA ) 

OUM (1,3)= -2.*TLSNC.»-GZ3 

DUM ( 1 , 4 ) s -2. t LSN^*SIS'( THGX3) 

0'JM ( I , 5 )= 2. * GX 3 

DUM (2.7)= 2,*TL SNC*GX3 

DUM (2.5)= -2.* T LSN0*SIN( THGZ3) 

DUM(2.6) = 2. *GZ 3 

DUM( 3.3)= ( SNL7«rUM< 1,3) ♦SNLX*0UM( 2 , 3 ) > /I 2. 

DUM (3,4)= SNLZ-DUM( 1 ,4)/12. . .. - 

DUM(3.5)= SNLX«DUM( 2, 5)/12. 

OUM ( 3,6)= ( SNL 7 *Oi JM ( 1 , 6 ) ♦ SNL X* D UM( 2 ,6) )/t 2 • 

DUM( 4, l ) * ( SIN( THOX3 ) /ALL ) «■ 1 2 . 

OUM(4, ?)= ( ~G7 3*COT('’HGX3)/4Ll )*12. 

DUM (4.3)2 SNL7*SIN(THGX3)/ALL - SNLX* GZ3 *C OT ( T HG X3 ) /ALL 
DUM (4,4)= -1. 

DUM ( 5 , \ )-: ( - GX 3*COT( THGZ 3) /ALL >* 1 2 . 

DUM ( 6 , ? ) = ( SIN( thg/3 ) /ALL ) * J 2. 

DUM (9,3)= -SNLZ*GX3*CC T ( "'HGZO) /ALL ♦ SNL X* S I N< TH3Z3 ) / ALL 
DUM(5. C )= -1. 

CALL DCCSN( THETA) 

all i = all ♦ l . 

CALL 5TInt(0,all1,:,1,1.TLSN1,ng) 

I F( NG ,NF » r ) GO TO =00 3 


SYSTEMS 

CA nc 1 2CC 
CAD'' 121 C 
C4BC 1 ?3C 

cab: 122 : 

. CAQ'' 1 24C 
CABC 1 25? 

C ADC 1 26C 
CADO 1 27C 
CABO 1 ?s: 
CADC l 2 ° C 
.CAB'" ! 3? : 
CAB'* 1 31 C 
CA9C l 32C 
CAB* I 33C 
CABC 1 34? 
CA3C 1 35C 
CABC I 34* 
CABC 1 37? 
CABC 1 3 9C 
CABC130C 
CABC 1 4CC 
CARO 141 C 
CABC 1 A2C 
CABC i 4 ?C 
CABC 144C 
CABC 145* 
CABC 1460 
CAHC 1470 
CABC 149C 
CABC ’4)" 
CABC 1 50 C 
CABC 151 C 
CABC 152? 
Caro 153? 
CABC 1 5'* C 
CAB? 1 45" 
CABC 1 560 
CABC 1 570 
CABC 1 5BC 
CABC 1 59C 

' CABO 160 0 
CABC 1 61 C 
CAOC 162C 
CABO 163C 
CABC 1 64C 
CABO 165" 
CABC 1641 
CABC 1 67 C 
CABC 1650 
CABC 1 6-V 
CABC 1 7C * 
CABO l 71 C 
CAD* 1 72C 
CAD* 1 73* 
CAB* 1 74C 


77 




P ILEC CABLE T1 GRUMMAN OATA 

ALL ? = ALL - I . 

CALL ST INT (Q, ALL2.C . 1.1. TLSN2.NG) 
l e (NG.EQ.?> S3 50C A 

LOO 3 d: ITE( 1W.500?) NG.ALL.ALU.Q 

. °S T 'J C M - 

5004 CONTINUE 

AKTL = ( TLSN1-TLSN2I/2. 

DU3(6.6)= -1. — - — 

0tJ3(6.-) = 4K T(_ -d 1 2 • 

CKJ3(7,1) = -GX3 
3*33(7,2) = -GZ3 

DIJ3 ( 7, 3)=( ( — SNL X*-ALL*‘GX?)*GZ 3“ ( SNL7AALLAGZ3 ) *GX? ) / 1 2 . 

D'JM(7,7) = -1, 

C ALL *i ASH( 3.7) 

00 1C OB I=1.S 
00 1018 J= 1 » 3 
1003 F 30T( I , J )=0*'J3( I . J ) 
oo icro i=i , 3 
00 10 -'O J=l,3 
S WJO ( I . J ) = 0 

1009 SNJ(I,J>= r T0°( I.J)* e B3T(I,J) 

R~TJC\ 

_100C I-(KOO>E< 10 > .EO.") GO TC 10C2 - . - - — - 

C tc^ms cjc 3NU33F0 SNU-3BFF E ptr EC TS ( LONG ) 

CALL OP CSN( THETA) 

^0 1005 1=1*7 

00 100 6 J= 1 , 7 
1 OC 6 OU^C I. J >=** 

OJM(.,t)= - 2.*TUENC*GZ1 

OJV( 1,4)= -3,* T lfSNC*SIVI(THGXl) 

0'JV< : , 6 )= 2 . * GX 1 

0 'JV(2,-»>= 2.7TUSN0*GX1 
0U3(2.6)= - 2,*TUSN2=SIN( THG71 > 

003(2.6)= 2.*G7l 

O'JM (3,3)= ( -SNU7*r U'<( 1 . 3) ♦SNOXOU”(2 .3) ) /I 2. 

003(3. A)= -SNU7*0UV( 1 ,4)/12, 

D O 3 ( 3.5)= FNU* *OOM ( 2,f>)/12. 

003 ( 3,6)= ( -SNOZ*OU3( 1 . 6) ASNOX*OOM(2 ,6) ) /I 2. 

003(4. 1 )= ( SIN( T HGX 1 ) /ALO) * 1 2. 

D03 ( 4,7)= ( -GZ i*COT( THGX1 ) /ALO) *1 2. 

003(4.3)= - 3NU7*S 1N( THGXl ) /AL>-$NUX*CZ1 *COT „ T HGX1 ) /ALU 

00 M( 4,4)= -1, 

003 ( 5. 1 )= ( -GX1*C0T( THG/i ) /A L’J) *1 2. 

003(5, 3) = ( SIN( tmgZI ) /*LU) * 1 9 . 

003(5,3)= SNOZ*GXl*CCT(THG71 »/ALU «■ SNUX*S I N { THGZ 1 ) / ALO 
003( 5.5)= - 1 . 

00 3 { 6, 6 )= - 1 . 

003(6,*')= AKSMUA12. 

00 M ( 7,1)= -GX 1 
0 O 3 ( 7 , 2 )= - O y 1 

0.13 ( 7, ■»)= ( ( - 5NUX + AL0* GX 1 ) * G 7. \ - ( - SNUZ* A(_U*GZ 1 )*GXl 1/1 2. 

003( 7,7)= - 1 . 

00 tc 1 = 1,3 
DO \ r J = 1 * 3 

1C SOOO( ! , J ) = 0 U 3 ( I , 6 )* AO SN0*0 03 ( 7, J) *1 2, 


1 


S Y S T E 3 S 

CaHC. 1 7 SC 
CABO 1 760 
CADE 1 77: 
CAB: 17Rf 
CABC 1 70C 
CABO 1 ° - C 
C430 l M r 
. CABC 1320 
CABC I 83C 
CABC \ H4C 
CABC IE EC 
CABC 1 BAT 
CABC 1 87: 

cab: 1 38* 

CABO 1 890 
CA90 1 90: 
CA30 :oiC 
CABC 1 >52* 
CABC 1«30 
04301940 
CABC 1 95 C 
CABC I960 
CABO 1?7: 
CABC I960 
CABC 1 9">: 
CAB02C 00 
CABC 2010 
CABC 202 0 
C AOC 20 ->? 
CABC 204^ 
CABC 20 60 
CABC 2*60 
CABC 2C 70> 

caqo pch* 
CABO ?.' 3r 
Cabc 21 or 

CABO. 21 :c 
CABO 2120 
CABC 2 : 30 
CABC 2 140 

CABO 2150 
CABC 2160 
CABO 0 1 7 7 
CABO 2 16 
CABC 21 90 
CABC 22 n 0 
CABO 22 1C 
CABO ?2Tl 
CABO 2 2 3r 
C A30 224T 
C AB'** 2250 
CAPO 226 0 
C A Bf, 7 7 7 0 

•0 * 4,0 3 9 - 1 ' 
CABO 2 2 a* 
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1 



I 


RILE" C A 3l p 


FOBTSAN 


GRUMMAN 


DATA 


SYS 


T - 


CALL M A SH( 

DO 1*07 1= 
oo ir:* j - 

10C7 pr 0 3( I , J )- 

nuv( i » 3 ) = 

0 J'M l . A > = 

0 JM< 1 , 6 ) = 

... - D J“( 2 . 3 ) = 

OUMC 2 , 5 ) = 

0'JM( ?. o) = 

0 JM( 2 . 3 ) = 

OJ*C ■», A ) = 

OH<( 3. 5 ) = 

2 IV( 2 , 6 ! = 

OUM( 4 , 1 ) = 

D!JM{4,2 = 

. DJM{ 4 . 7 )= 

OlJM( & , 4 } = 
o m 5 , i ) = 

DUM{ 5 ,?> = 

OJ‘H5,2) = 

OUMC 5. 5) = 

D'JWCft. ft> = 

OUMC 6 , 7 > = 

D JVC 7 ,l) = 

D IM{ 7 , 2 ) = 

Dim 7, ?) = 

OUMC , 7 ) = 

DO 22 1 = 1 . 

ro 2 C j=:,3 

2 * SNUOC I , J )= 1 JDC I. J )+DUM( I , 6 ) = S U SNL *0 UM C 7 » J ) * 12 . 

CALL M ASHC 3 . 7 ) 

DO 1 C 1 C != 1.3 
DO 1 : 1 ~ J= 1 . 3 
_ 1 C 1 0 P 3 C 7 C I,J)=BUU I.-l) 
do 1 o : i !=i .3 

no ici i j= i . 3 

_1C11 SNUC ! . J ) = rTO°C I.J)+-PCTC I .J) 
c-tucn 

IOC 2 DO ICO? 1 = 1.3 

. 00 ICC? J = 1 . 3 ... 

sn'Joc i. j )=r 

10 Q? SNU£ I * J )=* 

PE^BN 

END 

SUBROUTINE DPCSNC T HETA ) 

C OM M?N /OAT / 4 E er ( 1 T 5 ). A E c OP { 5 C ) » KCDE f 26 ) . LL 
C 3 MM?n/SniJB, 3 /SNUC 3 . 3 ) .SNC ?C ) . T HUSN. THL 5 N, SNUD C 3 ,3 ) 

EOUIV ALENC=(AE=OC 1C5) , SNUX ) . C AEP DC 1 C6 > • SNUY) , C AfOI 1 C7 ) . 

1 (AE = :.C 1 C 3 ), SNLX) , { AE^OC 1 C 9 ) . SNI Y) , C AE°C < I 1 C ) 

2 C A?C?c 1 1 1 ) . ONUST) . C AE 7 HC 1 1 2 ) . SNUWL) . C A- RCC 1 1 J) 

3 C Apt 0 C 1 14 ) , SNLST) , C A r POC * l 5 ) » SNLA’L) . C «E’C(l 1 <S ) 

4 ( *E=3< 1 17 ) . TU ON' 0 ) , ( A£ c O< 1 1 3) . TLSN?) , . -" = G( 1 19 ) 

=5 . ‘EPOC l 20 ).4KSNL>. 

6 ( A r S O C 7ft ) , WLCi- ),(i = C0(77),STACC).C AEP017* ) ,BLC 


3.7) 

1 . j 

1.3 

OUMC I. J) 

-2.ttl5nj3.g73 _ 

-2,* T Lf,N'*SIN< THGX3) 

2.*GX3 

2. iT LSNJ*GXo . 

- 2 . * tl 5N? * S I N C THG Z 3 ) 

2.*-GZ 3 

C SNL7*nuM( 1 .3 > '«NLX*0UMC2,3) )/12. 

SNL?*nUM< 1 , 4 )/12. 

SNL X * DU v C 2«5)/12. 

( 5NLZ*DU ■*( 1 . ft) ♦3NLX*OU v (2 ,6) »/X2. 

C S INC T HGX 3 ) /ALL ) * 1 2 • 

< -GZ?*C3 t {THGX1>/ALL)*12. 

SNLZ*SINC THGX3) /ALL - SNLX* G Z3 *C OT ( THG X3 ) / ALL 
-1 . 

C-GX’*CCTC~HG23) /’LL) *12. 

( S IN C T HGZ3 ) /ALL ) * 1 2 • 

-SNLZ*GX3*COTC THGZ3) /ALL ♦ SNLX* SlN( T hGZ3 ) /ALL 
-1 . 

-I . ... . 

AKSN *12. 

-GX 

-G7- 

C C - SNLX TALL * GX 3 )* GZ 3 - C SN» Z* ALL*G Z3 ) *GX3 ) /I 2 . 

-1 . 

3 


SNUZ) , 
. SNLZ) 
. 3NIU1L) 
.SNLBL) 
. AKS NU) 

P ) 


CAB'!' 2-' : C 
C ABC 23 1 C 
CABC 2320 
CAD023.3C 
CABO 23AC 
C ABC 2 350 
CARO 23ftC 
CABC 237 C 
CAB023BC 
C4D9239C 
CAB? 2400 
C ABC 24 1 C 
C * 90 24 2 C 
CA 30 24?C 
CABO 2440 
C400245C 

CA&C ?46C 
C ABC 24*C 
CA3C24B0 
C*dC243C 
CABO 250-0 
CABO 251 C 
. C43C 252C 
CABO 253C 
C A t- 0 2 5 4 C 
C ABC 255C 
CABO 256C 
CABC 257C 
CABC 2530 
C4RC25 >C 
C ABC 2600 
CA3C 2ft 1 C 
CABO 2520 
CABC 2ft?0 
C 4302540 
CABO ?ft=.C 
CABO 26ftC 
CAB0257C 
CABC 2699 
CABC 2690 
CABC 270 0 
CABC 2 7 1 * 
CAB* 27?C 
C \i?C 27 -*0 
CABC 27AC 
CABO C ? 1 0 
CABC 0 C 2C 
CABCOC 3^ 

C a 3 * 0 ' 4 0 
. C 4 BC-C 5 C 
. C VBC 0 " ft-; 
. CABC r 070 
.cah'O'a: 
C A d * r - ■* 3 .* 

CaBCCICC 
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i . 




I 


! 


FIL 



EC CABLE 

EOS TF AN T 1 

G R U K M A 

N DATA 

SYSTEM 

SOU I VALENCE C SNC 1). 

GX11.CSNC 2). 6V1),(SN( 3) 

. GZ1 ) • 

C ABC C I 10 

1 

(SNC 4), 

GX2) • C SN C S>. GY21.CSNC 6) 

« G72 ) • 

CARCOI 20 

2 

(SNC 7), 

GX3),CSNC 8), GY3).CSN( 9) 

♦ G23). 

C ABO C 1 30 

3 

( SNC 1C) . 

GX4) . (SNC 1 1 ) . G Y4 ) * ( SNC 12) 

* GZ4 ) • 

CABCC 1*0 

_ 4 

( SNC 13) . 

THU) . ( SNC 14) • THL) • C SN( 15) 

• ALU) • 

CABO CISC 


( SN( 1ft) . 

ALL) . 


CAB6C 1 6C 

6 

( SNC IQ) • 

THGXl ) , C SNC 20 * THGY1 ) . C SN(21 ) 

.■"HGZl ) • 

CABO C 170 

- 7 

(SNC 22). 

T r)GX2 ) • C SNC 23) .THGY2) . C SNC 24) 

• T HGZ2)* 

CABCC 1 BO 

8 

( SN( 25) . 

THGX7) , C SNC 26) • THGY3) . C SN(27) 

• THG73 ) . 

C ABC 0 1 9C 


CALC‘JLA T ION 3 E 
X3! = 

Z91 = 

X 32 = 

Z92= 

X B3 = 

Z93= 


C SN( 2°) ,thGX 4) . C SNC 29) , THGV4) , < SNC30) 
SNU33 ~ c C49LE DIRECTION COSINES 
( ST AC 1 ? -GNUS'" )*C3 SC ThfT4)-( ULC*: -SNUWL) * SINCTH 
( K' C? -SNOWt ) =C OS C THE TA ) ♦ ( STA C e - SNUST > * SINCTH 
X31 
Z *3 t 

( S""ACS-SNLST)*C3SC T H = TAJ-{ WLCC-SNLWL) * SIN( TH 
( WLCS-SNLVCL >*COSC THETA ) *■ { STAC9- SSL ST) * SI N ( TH 


TMGZA > 

T A) 

TA) 


:ta) 

:taj 


SNC I)“A C C?S(SN(J) ) 

CETICCM 

EN *> 

S'JoCOJT INS PCCUSN« THE TA ) 

CD M M.")N/D AT/AS=0( I7f > , AS SE=C 52) . KOCE < 25 > .LL 
C?MMD'|/S’-U9 9/E\'U( 1,3),;^(?C).'h!JSN» THLSN* SNUD C? .3 > 


CA0OC2CC 
CABCC2IC 
CABOC 22C 
CA90C23C 
CABCC2AC 
CABC025C 
CABCC2SC 
CA9CC27C 


X 94 = 

X 03 



CAB0C29C 

Z 94 = 

23? 



CARrC290 

DX 1 a 

X8 1 •frSNUX 

- — - 



CABCC33C 

DY I = 

-SNUBL +SNUY 



CABCC31C 

DZ*1 = 

Z 91 4-SNUZ 



CABO 0320 

DX 2= 

DX 1 „ 

. ... 


CA30C33C 

DY2 = 

SNU3L-SNUY 



CABCC 340 

DZ 2= 

DZ 1 



C ABC C 3 5C 

9X3= 

XB3+SNLX 



CA9CC35C 

DY 3 = 

SNL RL-SNLY 



CABCC 370 

OZ 3= 

Z93-SNLZ 



CABC03BC 

DX4 = 

*<X? 



CABC r 39C 

DY4 = 

-SNLBL+SNLY 



C AHC C 4 0 0 

074= 

DZ "* 



CABCC 4. 1C 

AL JSQ= DX 1**2 ♦ CY 1* * £ ♦ 

CZ1**2 


CA9CC42C 

ALU 

= SQ9 T C ALUSO ) 



CABCC4.3C 

ALL SO = DX 3 ** 2 «- 0Y3**2 ♦ 

CZ3»*2 


CA9C C44C 

ALL 

= SQ-TCALLSO) 



CA6CC45C 

GX 1 

= OXI/ALU 



CABC 04AC 

GY 1 

= 0Y1/ALU 



CABC C47C 

GZ1 

= DZ 1/ALU 

. . . 


CABC C43C 

GX? 

= DX 2/ALU 



CABC 0490 

GY 2 

= DY2/ALU 



CABC C 50 C 

GZ2 

02 2/AL'i 


_ _ 

" CABCC51C 

GX 3 

= dx3/ali 



CAB0C52C 

GY 3 

= DY 3/ A'_L 



CAB0CS3C 

GZ 3 . 

= 07 3/ALL 



CABC C 54 C 

GX* 

= OX 4/A LL 



C4BC0 55C 

GY4 

= 0Y4/ALL 



CABC056C 

GZ 4 

= DZ4/<4LL 



CAHCC57C 

DO 1 

1 = 19*3'' 



CABC 0 590 

J=I- 

18 



CAB'* C 59'* 


CAST C G?C 
CABC C61C 
CABC C ft? * 
CABC c ft 3 : 

C ABC 0 44'" 

C 49'' efts'* 


1® 


4 - 

❖ 
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-„*>»• '#fv# 


1 


! 


-3C td 4‘j 


EQUIVALENCE ( AE^OC K5) , SNUX ) . ( 4ER PC 1 C6 ) * SNUY) • ( AEFOC ! C 7 ) . SNUZ ) , C43CC56C 
t (*f.C (121). SNLX) . (4 C . »3C1C9) . SNLY) .(AEPOC! 1C ) , SNLZ ) » C ABC C 67C 

? » AE=?( 1 II > , SNUST ) . I AE c OC 1 1 2) , SNVJtoL) . ( AEP3 C l 1 ? > . SNUDL > . CABC'-S'i^ 

J C AE^OC 114), SNLST )»(AE C 0(11 5) • SNLWL) . ( AEROC l IS ) .SNLSL ) , CA6CCS90 

* < AES? < llO. TUSNC) . (4E=0(1 1 9) .TLSNO) . (AEROC l 19) .4KS N U) , CA30C7CO 


5 

C AEFOC 1 20 ) 

.AKSNL) , 



CABC C 7 1 0 

6 

C AER3C76) , 

*UCR ) , C*EPCC77) 

, STAC R ) , C A0ROC7S) , 3LCP ) 

C ABC C 72C 

EQUIVALENCE 

(SNC 1). 

GXI), (SNC 2). 

GY1),(SN( 3), 

GZ1 > • 

CAB0C73C 

I 

C SN C 4), 

GX2 ) , ( SN ( 5). 

GY2) , C SNC 6) , 

GZ?) , 

C ABC C 74 C 

> 

CSNC 7), 

GX 3 ) , ( SN 1 9) , 

GY3).CSNC 9). 

GZ3 ) . 

C ABCC7SC 

3 

C SN C 1 o , 

CX4) , C SNC U ) , 

GY4) .( SNC 12) , 

GZ4), 

CABC C7*C 

4 

C SNC .3) . 

THU) , C SNC 14) , 

THL) , ( SNC IS ) . 

ALU) • 

C ABC 0 7’0 

5 

( SK v 16), 

ALL) . 



CABO C 780 


6 { SM( *<J) .THGX1 ) . (SNC 2C ) .THGY1) ,( SNC21 ) .THGZ1 ) • CABCC79C 

7 ( SNC 22) .THGX2) , ( SNC 2? > .THGY?) , C SNC24) ,tmG72 ) , C4BCCSCC 

« C SNC 25) » r HGX3) . C SNC 26) .THGY31 . C iN(?7) , THGZ3) , CABC09IC 

° • ( SNC 2*») . Tm G X&) ,( SNC 29) .THGY4) . C SNC3C ) .THGZ4 > CAB0C92C 

CALCULtT IHN FQ= ELECTIVE DIRECTION COSINES p OR UNSNUBBED CAS* 1 CAB^CSBC 

AYL = SNL8L— C ^LC* *-SNi_Y ) CAB0CB4C 

A?l = -SNLW_-( WLC=+SNLZ*SNLX*SlNCTHETA > > _ . ._ CA0CC85C 

AYU = SNUBL-C BLCS +SNUY ) CA0CO86G 

AZTJ = SNUXL-CWLCR+SNUZ-SNUX*5INCThETA) ) CABCCB7C 

T M'J = * t AN(»7.U/AY'J) .. ... ._ . C4BC093C 

THL= ATANC AZL/AYL ) C4BCC89'' 

ALU=AYU/C S INC T HUSN )*C n S( THU ) ) CABO 090'' 

GX 15= -C3SC THUS'I) CABCC9IC 

GY 1 S= -AYU/ALU CA3CG92C 

GZ1S = -AZU/ALU CAQCC93C 

_ GX1 = GX 1 3* CD S C -r HETA ) - GZ 1 S* SI “II THETA ) .... CAQCC94C 

GY l = GY IS C46C^9sr 

GZ 1 = GZ1S*C9SC T HETA ) »GX 1 S* SI N C TH=TA) CA0OC95C 

GX2 = GXI CABCC97C 

GY? =-GYl CAB0C9SC 

GZ 2 = GZ 1 C ABC C 990 

ALL=4YL/(SI K 'C7HLSN)*CCS(THL)) CA301CCC 

GX 7S= -COSC7HLSN) CABO 10 l C 

GY3S = AYU/AIU CA8E10?r 

GZ3S= AZL/ALL CABC133C 

GX 3 = GX3S*C3St T HETA)-GZ3S*SINCTHFTA) CA8C104C 

GY 3 = GY3 r CABO 10 S'' 

GZ 3 = GZ3S» C3SC THETA ) 4-GX3S* SINC THETA) . ... CA3C1C6C 

GX 4 = GX 3 C ABC 10 70 

GY 4 =- GY 3 CABO 1C 40 

GZ 4 * GZ 3 CABCIC9C 

03 1 1 = 19, 3C CABO 1 1 0C 

J = I- 1 8 C ABC 1 1 1 G 

1 SN( I ) = Ac COS ( SN C J ) ) CA3C112C 

PETUPN CABO l 1 30 

END CABO I 1 4^ 

SUBROUTINE RT"L CABO 1 is: 

COMMON/ IND'. -,I= C AGO 1 1 SO 

COMMON /DAT/ a. .-..i *75),AFR0PC 50 , (CODE C 2 6 ) ,LL CABC l l 7C 

TFCKDDEi 6» ,GT ,1 ) r,c t-i \ CABC 1190 

« 1'EC IW, 1C ' ) CABCllop 

1C * F"»=M A*c 2Sy , »EC DNT CA3LE V-F T I C A L , AP CABLE HORIZONTAL*) CaB:i?:: 


8l 


» t 1 

I FIUEC CABLE FfJS 'T AN T1 GRUMMAN DATA 

1 GO Tn 4 

I -1 Ir fKQDE! A) .GT .2 ) GO TO 2 
>■ * R \t c ( i *, 2"r ) 

, 200 F CPMA''( 25X, »PCCNT CA9LF HOP I 70NTAL .PE AR CABLE VERTICAL*) 

I - GO TO 4 .. .. ... . . . 

s 2 ! = (<OOE( 6) ,GT .31 GO TO 3 

*c ITE( IW.3C0 ) 

. 30 C ^opma* ( 25K. *aOTH CABLES VERTICAL*) - _ .. 

GO TO 4 

3 *P I T E! IW.4-»C ) 

400 - - > c, ’A' r ( 25X . • BOT H CA3LES HORIZONTAL*) 

4 CONTINUE 

IF(<POE( i: ) .EO.C ) GO TO 5 
I c (<O0;t 1C ) ,EQ • I ) GO TO 6 
«rc i w%S ''n) 

50 0 FOFMA' r ! 25X, *SNUR3E= S SNUBBED*) 

. . . GO T 0 ■* 

8 4P I~E< IW,60C ) 

60 P e ''C«AT( ?8X . *NO SNUBBERS*) 

G.0 T 0 7 _ . . _ . 

6 WRITE! IV, 7? 0 ) 

700 *QPM4T( 25x , ‘SNUBBER S UN SNUBBED * ) 

7 CONTINUE ... ...... 

i c (<' , OECii). c o,n go to 9 
vp ite( rw, 8'c i 

800 F0RM4T( , *L IFT/ANTI-L I c T CARLE IN*) 

GO to o 

8 wp ITE! I W, 90 C ) 

90 n =1t«Af(?SX,»NC LI rT /*NTI-LJCT CABLE*) 

9 CONTINUE 

IFIKODEI 1^) .LE.C. )VPITE( iw.ioCC) 

... . I c |KDDFt 13) • G" • C • ) •*' R I TE l I W * 1 0 C 1 1 

I=(<00E( 13 ) »EO I . >W= ITf-( I V, ! 0C2) 

1C0C F ORM AT( 25X ,* feedback LOGIC NOT IN*) 

.1001 roCMA'f 25X, *F=poo^C< L^GIC IN*) 

I CC 2 FORMAT! 25X, ‘CABLELESS MODEL CHA RACTEP I ST ! C S* ) 

RETURN 
END 

SU9P3UT INE ST IN t ! a 1 . A 2 , A 3, NTBL , MAX T9L »FC T , NG ) 

EOJIVALENCE ( X ! I ) *NUMPT S( 1 ) ) 

COMMON NUMOTS(l) ... . _ 

OIMSNS ION X ( 1 ) 

I 7 =NUMPTS( 1 >/3 

7C I ~ ( MINT8L-M AXTBL )7: 1 , X 10 

71 00 73 I I =M INTBL » m AXTBL 

NJ=NUMPT3! I I) M 

I r ! A3-XINJ ) ) 72, 74, 73 

7? I f { I I — m INTBL ) 11M12.75 
73 CONTINUE 
GO -R 112 
78 IK - ! 

IL =2 
NM = NJ 

in : o-! 97 :*-= i< , il 

N J =NJVCTS! I ! ) a 1 


SYSTEM 

C ABC 1 21C 
CABO I 2 ?C 
CARO 1 23C 
CABO 124C 
CABC125C 
C ABC 1 26^ 
CAB r 1 2TC 
CABC 1 26C 
CABO I 27 : 
CABO 1 300 
CABC 1310 
CABC1 ??n 
CAB0 13 3C 
CABO 1340 
CAB*' 1 ?5C 
CABO 1 "*60 
CABO 1370 
CARC 1 38^ 
CABC 1 3 ar 
CABC 14JC 
CABO 1 41 C 
CABO 1 4 2C 
CABC 1 4 3C 
CABO 1440 
C4B0 I *=>r 
CABC 1460 
CAB014TC 
CABC144C 
CABC 14 AC 
CABO 1 5“ 0 
CABO 1510 
CABC 152: 
CABO 1 53<- 
CAB01 540 

CABC 1 65 ? 
CABO 1560 
CARC 1 5’" 
CABC 1 58C 
CARO CO 1C 
CABC C C 7 c 
CAB0CC3C 
CABO C '40 
CABO C 0 60 
CABC C ~ 6 ; 
CAB00 r 7C 
CABC CC 90 
CA3CCC AC 
CABO C 1CF 
CABC '1!' 
CA9CC 1 2C 
CABC o 1 7" 

C ARC C 1 ■*'“ 
CART 1 EC 
CARC o » 4 0 
ca°o ; i r- 



82 


iff* 


1 


FILE' C 4 E r-jeTCAtg T1 


g o u * m a n DATA S V S t « w 


MI = IZ ♦ 1 1 
- 13 sN'JMPTStNI) 

P =IO*NJ 
03 77 10=1, 13 

NN = NJ+I3 

IF ( A1-X{NN > >76,79, 77 

76 I c { 10- I ) ir.112,79 

77 CONTINUE 
G3 TO 112 

78 IG =-l 
G3 '”3 o? 

70 IG =+: 

8C N I -'I I ♦ I Z 

13 = MUV»^-6(NI> 

DO 92 I Arl , in 
NS- IF ♦ I A 

If ( A2 -X(nS > >81. 33, 82 

81 I-( I A— 1 ) 1 1C, 1 12, 34 
8? CONTINUE 

GO ' r 3 112 

8? IH =- l 

GO Tr> 05 
. .94 IH =+l 

86 NE= IP*I 9M0 + I0* IA- ID 
N=>=NE- TO 

I=(IG*IH> 96,88,91 

86 IF ( X(NE)-OQ098.S~0>87, 1 1 3. 1 13 

87 FC T = X ( NE > 

. GO TO 95 

'>3 ! c ( IG > 80, : t*. 91 

39 I-( AMAXl(y(N=),X(NF ) )-q9998, 5= 9>9 0,113,1 1 3 
_ 90 •‘CT =X(NE>-( XfKS )-A2>* ( X(NE )-X< NP) >/(X(NS> -X(N5-l > > 

GO TO 95 

91 IF( AN AT If X( NE ) ,X{Nt: ; , x ( NT- 1 > ,X(NR-1 > > -9999 9. 5^91 9 2 , 1 13,113 

92 FCT = ( ( Xf NS >-A 2) *( ( > ( NN>- A 1 ) «X{ N=-l ) - CXf NN-1 ) - *! > *X ( NP > 

I>-(X(N3-l>-42)*( (X(NM)-*1)*X(N>1 >-(X( NN-1 > - A 1 > * X ( NE > ) > 

2/( ( X( NSJ-Xl NS-1 > >*( X( NN)-X(NN-1 ) > ) 

GO TO 95 

93 IFfANAXlf X(NE>, X{ NE - 1 > > - 90 998 . 5E 9 > 94,113.113 

94 FC T = X(NE>-< X ( NN ) — A 1 > * f X(NE>- X(NE-l>>/{ X ( NN > - X ( NN- 1 > ) 

95 GO TO (96,09,90), ip 

96 DJNSTG =FC T i 

97 II =11-1 

99 FC T =OUMSTG-( X( NM )- A 3 > * { DUMSTG-FC T ) / < X(NV>- X(NJ)> 

99 PE r U^N 
74 I< =3 

_ . IL *3 

GO TO 10 t 
11C NG =2 

GO TO 90 

112 NG =3 

GO TO 99 

113 NG =4 

50 *0 on 
ENO 


CAPCf 1 «K 
CABO C I K 
C ABC 020 C 
CABO r - 2 1 0 
CA9CC22C 
CABOC230 
CAHCC24C 
C ABC C 250 
CARCC260 
CABC0270 
C ABO 2 9C 
CABC C?K 
CA3CC3C0 
CAB"C3 1C 
CABC 0 320 
CA300 330 
CABC : 34 C 
CABC C 3 5C 
CABC 0360 
CA9CC37G 
CAB0C33C 
CAB0C3OC 
cab:c40c 
CABC 04 10 
CABC C. 4 2C 
CABCC4XC 

CABCC44C 

CABC C 4 5: 
CABC 0460 
C4BC C 47* 
C ABC C 4 3C 
CABC C490 
CA3CC60C 
C ABO C 5 1C 
CABC 0 520 
CABC r 53C 
CABC r 54 “ 
CABC C 55'- 
CA8CC56C 
CABC 05 7C 
CABC C 53 j 
CABC C 590 
CABC C60 ? 
CABCC6 1C 
CABC C62C 
CABFC6 3C 
CA0CC64C 
CABC065C 
CABC 0 66" 
C ABC C 8 70 
CABC * 69* 
CABC C69C 
CAHC 0 7*» * 
CABC : 7 10 

cabc : 72 r. 
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f FILE? CA9-E PDCTCAN T1 GRUMMAN DATA 

I 

I SUBROUTINE tah !n( NUMT5L.NZ,NG» 

I COMMON N'JMOTS(i) 

I COMMON/ INCU”/ IW, IP 

* COMMON /TA-30UT/ NIMT3L.ISCO 

* DIMENSION XUMOTSI II __ - -- - — 

1 I NTEG =r * ? L A°FL (27) 

E3UIVAL c NC c (XUMO^St I ) .NUMPTSC I ) ) .(DUMMYC1 ) ,MUMMV) 

DIMENSION DUMMy (JO) 

MCP = 0 

10 I Z = I 4 BS( NZ ) 

NUN I T = 5 . . . 

I^CNZ .IT.' ) NUN I T =8 
NIM~3L = NUMT9L 
NG=0 

NUMOTSI I ) = IZ-H7MZ 

102 5-AD( NUNIT, 57) <, LIN, L2N. LABEL, ISFO 

I ~{ M cp • EO • 0 ) GO T 0 3 
A *fPIT = (lW,l) K,L IN, L2N, LABEL, I 5E9 

1 FORM AT (316, 1CX.27A2, I A6) 

57 p O»MAT( BXIA. 212, 27A2. 12) 

3 lt{ ISEO) 69,58.69 
53 lf<<) <?A, 99, 50 

.59 ■«'= IZ ♦ NI«’3L 
NUMPTS(M) s LIN 
M = M ♦ IZ 
NUM^TSI V) s L2N 

I"C N'JM^BL-N IMTPL ) 17,70,17 
17 NUMOTSI NIM^BL I = mummy 

TO N1 * (LIN-1) / 9 ♦ 1 

DO 68 IS = l.Nl 
L 3 = ( I S- 1 ) * 9 ♦ 1 

l c CIS-Nl) 6C. 61, 60 

60 L A = L 3 ♦ 8 
GO TO 62 

61 ..LA s LIN . _ ....... _ . 

62 L 5 - NUMPT S ( N I M 7 3L ) ♦ 1 
L 6 = L 5 ♦ L? 

L7 s L5 ♦ LA 

JJ = 0 

LM * L5 ♦ L IN 

LN = LM ♦ L 2N . . . 

63 CEAD( NUNIT, 64 ) ( DU”MY( K ) ,K = 1 , 1 C ) , ISEO 

6A e-OPMAT (10F7.C.I2) 

I p C CP.FQ.O) GO T 0 5 
6 ITT( I«, 2 )DUMMY, ISEO 

2 FORM AT( 1C«?1 2. A, IS ) 

6 X UMOT $ ( L5 ) * DUMMY! I) 

K = 2 

DO 65 J * L6.L7 
YUMPTSfJ) s DUMVY(K) 

65 < = K ♦ l 

ISOQ=( IS-I )*(L2N*l )AJJ+1 
IR( I«= e 0- IS"»0 ) 60,66,69 

66 L6 = LN ♦ (.3 
L7 S LN ♦ LA 


S Y S T E ' 

C ABC C T3C 
CABCC 7a C 
CABC 0 75? 
C ABC C 76 0 
CABO C 770 
CA3CC 7 AC 
CA6C0 79 0 
CAST C 80 C 
CABCC 91C 
CAB0C37? 
CABCC 3.30 
C ABC C SAC 
CABC C AS 1 ? 
CA3CC S6C 
CABCC 87C 
cabccbsc 
CABC C BTC 
CABCC 90 C 
CABCC 9 1C 
CABCC92C 
CAB0C93C 
CABC09AC 
CA3CC as C 
CABC C 960 
CABO^T? 
CABCC 9SC 
CABCC99C 
CABC 1000 
CABC 1C 1C 
CABC 102C 
CABC ICO? 
CABC 10 AC 
CABC 1 CSC 
CABC 1 C 60 
CABC 10 7C 

cabc i : a? 

CABC 10 9? 
CABC t : ?: 
CABC 1 1 1 0 
CABC 1 1 2C 
. C*BO 113? 
CABC 1 1 AO 
CABC 1 ! SC 
CABC 1 I SC 
CABC 1 1 7C 
CABC 1 ! 8* 
CABC 1190 
CABC 120 " 
CABC 1210 
CABC t 220 
CABC 12 30 
CABC 1 2 AO 
CABC 126* 
C ABC '.?<■* 
CABO 1 27^ 
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t 





I 


l 


F ILEC CABLE FORTRAN T1 GRUMMAN DATA 

LS = L« ♦ 1 ♦ JJ 

_ . . IF ( J J-L , N ) 67. 63. 69 
67 JJ = JJ ♦ I 

LM = LN ♦ LIN 

GO T D 6? ........ . 

69 CONTINUE 

1G9 MUMMY = NUM°TS( N IMTOL ) ♦ (LlNM) * (L2N+1) 

1C 8 NIVT3j_ = n I M T DL ♦ 1 . ... ... ... 

GO T 0 102 
69 NG = 1 

99 C*: T, .I=N ... 

FND 

S JH=3U T INE ST I N T 1 ( A X « A £ , A 3 . M I NT9L . MAX TDL i c CT, NG ) 

EQUIVALENCE ( X< 1 ),NU '« T S( 1 ) ) 

COMMON/TArtl/N'JMOT3( X » 

DIMENSION X C I > 

I J sNJMP T S ( 1 >/3 

7C I?*( MINT0L-M AXTRL ) 71 , 71 » X 1C 

71 DO 73 I I=M INT3L ,maxt«L 
Np = N'Jvr>TS( I I) +1 

I~( A3-XINJ ) )’2. 74,73 

72 IE< I I-MINT3L » HC.112,75 

73 CONTINUE __ . .. .. ... - — - - - 

GO T 0 112 
T5 I‘ =1 
IL =2 
NM=NJ 

101 DO 97 IF*IK , IL 

NJ sNDWOTSI I I )♦ l v 

M I - 17 ♦ 1 1 / 

. .1 =NUWr>TS(NI) 

1° = IOA-NJ 
DO 77 IQ=1 , 10 
NN= NJ+IO 

I" ( Al— X(NN) 176*79, 77 

76 I - ( 10-1 > I 1 0. 1 1 2. 79 

77 CONTINUE 
GO T 3 112 

73 IG =-l 

go to ec 

_ 79 15 =♦! - ... 

90 N I =N I ♦ I Z 

13= NUM^TSI N I » 

DO 92 IA=1, 19 

N3= I® ♦ IA 

1= ( A2-XINS) >81,93.92 

81 T s ( I A — I ) 1 10, U2, «4 

82 C0N T INUF 
GO T 0 112 

8? IH -- 1 
G n J 95 
* Ii 

• - ». *■ T 9 ♦ 1 0 IO* I A » 1 0 

- TO 

fH) 36.99.91 


SYSTEM 

CABO 1390 
CAHC 1290 
CABO 130? 
CA9C1 310 
CABO l 320 
C ABC 1 .3 39 
C ABC ! 34C 
CABO 1 35C 
CABC 1 360 
CAHC 1 370 
CA90 ! ’S'* 
CABO 1 39C 
CAB'' C C 1C 

cabccoe: 

CABC CO 30 
CABC C04C 
C ABC 00 50 
CABC 006C 
CABC 09 70 
CABC C- 0 9C 
CABC C C 90 
CABCC IOC 

... capccu: 

CABC C 1 20 
CABCC 1 2C 
CABC O 1 ur 
CABC CISC 
CABCC ISC 
C ADC r 1 70 
CABO 0 1 9C 
CABC C 1 9 C 
C ADC C 23C 
C ADC C 21C 
CABCC 220 
CAR**C 230 
C*9C C 240 
CAB r C 2 SO 
CABO 0 2*0 
CABC C 2 7C 
CABC C29C 
CAB0C29C 
CABC 0 3*C 
C ADC C 31 * 
CAB0C32C 
CABCC 330 
CABC 9 340 
C ABC C ’S'* 
CABO ''740 
CABO r ?7C 
CABC C 390 
C A9C C 39 C 
CA9CC4CC 
CADC C4 1C 
CABC C 4 ?C 
CAHC '■4 3'* 
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• , "A f * >f'sKWK 


C 43L E FOOTS AN T 1 .GRUMMAN DATA S 

IF (X(NF)-99998.5?9)87. 113.113 
FC” = X(NE) 

G3 T 0 OS 
I c ( 15 I 89, 1! C. 93 

!=■( AMAXlt X( NF ) ,X(N^ ) ) - 99998. 5E 9 ) 9 0 . 1 1 3 .1 1 3 ..... 

e CT =<( NF)- ( XCNS »-A 21* f X<NE )-X{ MB ))/< X(NS) -X(NS-l > ) 

GO TO 05 

I-( AM AX 1(X(NE),X( NF ),X(NE-1) . X ( NR - 1 ) ) - 99993 . 5E 9) 9 2 . 1 1 3 .1 1 3 
FCT = ( l XI NS)-A ?)♦( ( XI NN1-A1 )»X(NC-1 )- ( X( NN-1 )-At > *X< NP ) 

1 >-(X< NS- l )- A2 )*( ( X( NN l-A i )*X(NE-1 >-( X< NN-1 ) -A1 ) «X ( NE ) ) ) 

2/< ( X ( N F ) — X (NS- 1))MX( NN)-X(NN-l ) > I 
GO TO 95 

93 I c (AMAX 1( X(NE), X(NE- l I I-9Q998.5E9) 9* • 1 1 3 • 1 1 3 

5 -.94 FCT = XCNE)-C X(NN)-*I»*( X ( NE ) - X(NE-l>)/( X(NN>- XCNN-1)) 

95 GO TO ( 95. 98.00) . ic 

96 DU^STG =FCT 
. .. 97 II = I I- 1 

98 p CT =OUMSTG-( X ( MM )- A 3 I* ( OUM 5 OG-FC T ) /{ X(NM)- X(NJ)) 

QQ C ET'JFN 
- 74 IK =3 
IL =3 
GO TO XC1 

• J 1C NG =2 _ .. .... . . ... .. 

GO TO 09 

112 \G =3 

GO -Q oo 

113 NG =4 

GO ’•O 99 
END 

SUBROUTINE -49 IN ! ( NU'l T R L • NZ . NG ) 

COMMON/lNOUT/lw, 1= 

cqmmon/tah: /Niuv^rst 1 ) ..... 

COMMON /TA80U1/ NIMTBL.I500 
DIMENSION XUMOT 5 (!) 

INT=-GEc *2 L A 3 EL (27) 

EGUIVALFNCE (XUMOTSI ! ) ,NUMDTS< II) .(DUmmyC! I .Mummy) 

DIMENSION DUMMY (If) 

_ . vcf=: 

10 IZ=I49S(NZ) 

NUN I"-5 

I F( N? ,LT .^ ) NUN I T =8 . . . .. . . 

NIMT3L = NUMTBL 
NGO 

NUMOT3C I ) = ! Z4-IZ + ! 7 

1C 2 c-OAOINUNIT, 571 K, N ; L2N, LABEL. I S r Q 
I^CMCC .rO.O ) GO TO 3 
A *3 !Tg( iw, 1 ) K.LlN.LON.LAg^L.ISFQ 
l F 3SM 315. IOX. 274 2, 146) 

57 C ?SM4'( 8X14, 212. 2742, 12) 

3 !F< IG*0) 69.5F.EO 
S3 l-(K) °9, 99, 59 

39 M s 17 ♦ NIMT«3 l 

MUmoT5(m) * LIN 
M s M ♦ 17 
N'JMOTS(M) s L?N 


1 

file: 

86 

87 

88 
89 

9C 

91 

92 



r S T E M 

C ABC C 44C 
C ABC 0450 
CABCC460 
CABC C 4 70 
CA3CC480 
C ABC 049C 
CA8CC5DC 
CASCC510 
CABCC52C 
CABC053C 
CA9C"" -4 ; 
CA3C<; 

C *430 C 56 C 
CA3: C5 7C 
CAS'' C BBC 
CABC 05 90 
CABO C 50 0 
CABCC5IC 
CABC C * ?C 
CABO C 630 
CABC C640 
CABC Cfc5? 
CABC C 550 
CABO C 670 
CA6C C oBO 
CA3 r C 6 9C 
CA8CC7CC 
CABOC 71 0 
C * 3C C 72 0 
CABO : 73 : 
CA6C 0740 
CABC C 750 
CABC C 760 
CABC 0 77 C 
CABO C7BC 
CA3C r "*9 0 
CA30 C40C 
CAdocai : 
CABC 0820 
CABC C33C 
CABO 0840 
CABC. C 860 
CABC C«60 
C45C C BTC 
CABOC BBC 
CABC CB90 
C49:<0990 

CABO C9 1 : 
CAB r r 05' 
CA 0 CC 97? 
CABC vO 34 C 
CABC C 95C 
Cab: r -J6C 
cab: v 97? 

CA8C f >4- 


V 
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I 


l 


I filed cable FiPTstN Tj Grumman 

IF** JMTri-n Jmtp L >17.70,17 
IT N‘JM*>t 5( N IMTOL > = MUMMY 

7? N! = ( L IN— 1 ) / 9 ♦ 1 

03 68 IS = l.Nl 

- — L 3 * (IS-1) * 9 ♦ 1 

I e ( I S — N 1 ) 63, 61, 60 

60 L 4 = L ■* 4- 8 

1 .... _ GO TD 62 .. . . . ... _ 

61 L4 = L IN 

62 L5 = NUMPTSf NIMTBL) ♦ 1 

‘ L6 s L* ♦ L 3 

L 7 = L 5 ♦ LA 

jj = o 

'I -M = L5 ♦ L IN 

_N = LM ♦ L 2N 

63 = E AD( NUNI T . 64) * DUMMY* K ) ,K =1 , 1 C ) • I SE 0 

' -- 6* "JC'4*T * 1 C € " T • 3 . 12) 

TF< MCC .EQ.O ) GO TO 5 
6 *e JT = { iw, 2)DUVMY, ISEO 

2 FORMAT* 1CE12.4. 15) .. .. . 

5 KJVOTS{L5)= DUMMY* 1) 

K *= 2 

DO 65 J = L6.L7 . . _ 

XUMOTS* J) = DUMMY* K) 

65 K ~ <♦: 

IS0G={ IS- 1 ) * * L 2N+ 1 ) 4-J J ♦ 1 
I^( ISFQ-ISDO) 69,66.69 

66 L* = IN * L 3 

L 7 = LN ♦ L4 ... 

L5 = LM ♦ 1 + JJ 

IP <JJ-L2N> 67. 68, 69 

67 JJ = JJ ♦ 1 
LN - LN ♦ L IN 
GO T 0 63 

63 CONTINUE 

139 M JMMY = NUM°TS< NIMT3L ) ♦ *L1N+1) * <L2N*1) 

108 NIMT9L = NIMTql ♦ i 

GO TO 1C 2 

69 NG * 1 
99 FE7UCN 

. END . . . .... 

SUf390U' T ' InE PCICT(IDXI 

COMMON/L A t /A , : c 0( 175), A;P0O( 50) .KOOEC -6) 

C0MM0N/ = DUCH/F= IC* 3.6) 

EQUIVALENCE ( AEP 0 ( 96) ,COU) , < A“®0* 104) .Cm P) 

DO l 1=1.3 
00 l J = 1 , 6 
l FP IC* I . J )=C . 

I c * CMP ♦ ED • 0 ..ANO.COU.FQ.O.)PE t URN 
I ND = K DDE* 6 ) 

I=* IOx .N*- .* )r,o T C 2 

C LONGITUDINAL ra ULL ~Y EVICTION CCMPUTATICN 
GO ’0* 1 '. 1 1 . 1 2, 13) , IN" 

1C CALL c «=VT( 1 ) 

P' T, J5N 



DATA SYSTEMS 

CABC C 99'* 
'ABC 1CCC 
C‘. SC 1 3 If 
CABC 1 02C 

CABC1C3C 

CABC 1040 
CAB* 1050 
CABO 1360 
CABOlOTr 
CABC 1 0 8C 

cabci^o 

CABC 1100 
CABC 1110 
CABC 1120 
CABC 11 30 
CABC 1140 
CABC 1 1 5C 
CAST l l a: 
CAB'* 1 1 7 C 
. .. CABC 11 30 
CABO 1 19C 
CABC l 29 C 
CABO 1210 
CABC 1 220 
CABO 1 2 ’0 
CABO 1 240 
CABC 1 250 
CABO l 2*0 
C 460 1270 
CABC 1230 
CABC 1 20 0 
CABC 1 30 <" 
CABC I 3! C 
CABC 1 320 
CABC 1 330 
CABC 1 340 
CABO 1 35' 
CABC 1 36C 
CABC 1 370 
CABC 1 38C 

. CABC 129C 

CABC r 0 10 
CABC 0 ~ 2 * 
CaBO C 0 3C 
CABO C “AC 
CABOf 050 
CABOC-'SC 
CABC C * 7 o 
CABC CC3C 

cabo :■ o r* 

C ABC C 10* 
CABC C 110 
CABC 0 1 2" 

C A DO 0 130 
CABor : 40 
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1 


I 


I 


1 



1 1 CALL PC VT( 3 ) 

RETURN ... 

I 2 CALL r - VT( 1 ) 

CALL FCVT( 3 ) 

; 13 P^'jc.N . . . .. . . . . 

i C LATERAL DIRECTIONAL FCICTJON COM3UTATION 
2 GO T-*C 2P. 21,22. 23>. INO 

--.20 Call fchZ(3) - _ _ 

RETURN 

21 CALL FPHZ< 1 ) 

. .. 22 PET'JPN 

23 CALL PPHZ( 1 I 
CALL FRHZ( 3 ) 

RE T U=N ..... 

eno 

SUBROUTINE FRVT(IC) 

C C'3 ,, °^ T E~ ■*" H£ c 5 ICT, EFFECT OF t HE VE c t PULLEYS ON THE LONG. DYN. 
C3Mmd\|/DAT/AEPO( 175). AES OP (50) . KODF (25) 

C'1MMON/PLYCHA/cto,XLGTh( 5) ,ADC(5.3).APM(5.3) . Tp , 'l^T ,TF 
COMMON/RCUGH/FP ICC 3.6) 

EQUIVALENCE (AERO(QC).RV=),(AERO(92).RVP).( AEF0(96 ) ,CCU) . 

1( «=RO( 1CA). CMP) 

o i mens ion dtk?).:t 2 ( 3 ) . ... 

1 F( IC.E0.3 ) GO TO 1 

TENS=TF 

PAO=OVF/ 12 . 

A VX = ( A CC (2.1 ) — ADC ( 1. 1 ) )/2. 

CAX*CO <: ( AVX ) 

. . CA2 = S I N ( AVX )..... 

GO ~0 ? 

1 tcns= t f 

PAD= 3 V- /12 • 

AVX = 7 •141S')+( A DC ( 4, 1)-ADC( 3, 1 ) ) /2 • 

CAX=C0S( AVX ) 

CAZ=S INI AVX ) 

2 APMX = (ACM( IC. 1 )FAPM( IC + 1 . 1 ) )/2A. 

A»M7 = (APM( IC+1, ?)-ACM( IC.7) >/2A. 

ENORX = t ENS*C3S( ACC( IC . I ) ) 

=NOP7 =TENS* < 1 . + CDS5ADC< IC.3) ) ) 

ENOCM = SOP T ( ENCR X**2-*-EN0p Z** 2) 

CMOOsCMP/ENPS M 

FACUsCM-’P* pnOPm/c AD** 2 
FNOPX = -r ENS*CO 5( ATC( IC + l. 1 >) 

EN0R7 =t-ns*( 1 .+CD 3( ADC( IC+l • 3)) ) 

=NORv=SOpt( END* x* *2+ENOR /** 2 ) 

CMPP=C m3 /FNQP V 

p ACL =C VDr> * ENQP M/s A 03* 2 
FACT -4 •*CO , )/{ 3 • 1 4 l c 9* C AD**2) 

CALL DLGTH( CX.CZ.CT, IC ,C ) 

CALL DL G T H( C vo ,CZ°.C'" 3 , I C 1 .0) 

^ T l( 1 )=PACT MCX^-CX) 

DT l( 2 ) =F AC r » ( C Z°-C 7. ) 

DT»( 3)=FAC t *(C t =>- CT) 

DT 2( 1 ) = p ACL * C XP- f A C U* C X 
D T 2( 2 ) = pACL*C 7 p-f A C'J*CZ 


cap: c i a; 

CABCC16"; 
CABC r j 70 
C ABC C 1 BE 
CABC Cl 90 
CA8CC200 
CAHCC21C 
CA3DC22C 
CABCC2 3C 

CAB002AG 

C ACC C 25* 
C ARC 0 Mr 
CABCC27C 
CABC C 2 30 
CA90C2OC 
CABC 03 DC 
CABO “310 
C AB r 0 3 2'' 
CABC 0 330 
CABO C3A0 
CABC C 3 50 
CABC C 360 
CABC C 3 TC 
CA3CC330 
CABO 0 3 00 
CA3 C :ac: 

CABC 04 10 
CAB^O 4?0 
C ABC C 4 30 
CABC 0 4 4 r 
CABC C 4 5C 
CABC C460 
CABC C47C 
CABC C4B0 
CABC C49C 
CABC C 50 - 


carc 05i r 
CABCC 520 
CA8C C5’C 
CABC C54C 
CABC C 550 
CABCC56T 
CABC 0 5 70 
CABO C5B0 
CABC C 5 A * 
CABC C60C 
C ABO c 610 
C ABC C62C 
CABCC 630 
CABC C 
C 4 '3C C 5«0 
CABC C66C 
C \S r '**7'* 
CA8C C 3 r 
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FILES CABLE 


FORTRAN T l 


GRUMMAN 


0 A T A 


SYSTEMS 


0~?t 3 ) = FACL * OTP-FACU* C T CAHCC70C 

00 3 1 = 1.3 CABO : 7 10 

FR ICC 1. I )*« IC( 1 , I )OTH I )*CAX CA3CC720 

FR ICC 1, !f?)sFP ICC 1. I+3)>0T2( I)*CAX CABCC 7 3C 

ER ICC 2. I > = "R ICC 3. I JOT 1 C I >*CA? _ _ ...... CA90C: 

Pc ICC ?• IO)=FR ICC 2. 1 + 3) 4-0 T 2C IJ*CA2 CA30 C 1 VJ 

FP ICC 2. I ) = FC ICC 3, I ) O T 1 ( I >*PADOTl ( I ) *CA X* AP M/-0T1 Cl ) *CaZ* A»«X CABO *7*>3 

eo ICC 3, I ♦ 3 ) = F3 ICC 3* I + 3)*0 T 2C I )*RAOOT2 C I ) *C A X* APMZ-OT? C I ) *CAZ = ABMX CAB"C 7 7C 


x CONTINUE CA9CC7BC 

R“TU=N CAa^COC 

FND CABCCBOO 

SUBROUTINE F=H/(IC) C ABC C B 1 r 

COMPUTES THE pcIC". EFFECT OE THE HO=Z PULLEYS ON THE LAT. DIR. DYN. C AdO C 9 20 
COMMON /DAT / A E- 0 ( 175)»A£R O d CEO) .K0DEC26) C ABC C 9 3C 

C 1MM0N/PLYCHA/RTO, XLGTH( 5) .ADC C 5, 3) ,ARM(5, 3) .TR,t l ct.TP - CA9CCB4C 

COMMON/P'*UGrt/EC ICC 3*6) CaBCCBSO 

... EQUIVALENCE C AERQC 9 1 > .R hp ) , ( AE = OC 93) .PHP) . ( AERQC96 ) .COU) t CA9CCd*>0 

It AEFOC 10*), CMP) C A9C C d70 

0 I MENS ION D T l( 3 ) • 0 T 2 ( 3) CABCC830 

IF(IC.EQ.3)G0 T G 1 . . . .. CA9C0M9C 

TEn5=TF CA9CC90C 

R4n=RHF/I2. C ABC C 9 1 0 

GO TO 2 . ... . _ CA3CC92C 

1 TENS = TP CAB0C93C 

R AD=R HR / l 7 • CABCCOO 

. 2 EN09X=TENS*CCSt ADCt IC . 1 ) ) . - CA9CL950 

ENQR Y =TENS* ( l . ODBC ADC < IC.2) ) ) CA9C09SC 

ENORMpSOR’C ENOR Y* EVOB Y A-ENCP X* c N‘3P X) CABC097C 

CM°P*CMP/ENOR M . CA30C93C 

e ACL = Cmop*EnORm/C4D** 2 C A 9 C 0 Q -1 C 

e ACT = A • * COU /C ? . ! A! S9«OA0A*2) C ABC 10 DC 

CALL DLG-H(CY,C r, SI.C :3 HI ,IC,1) CABC101C 

CALL OLGTHC CYP.CRS IP.CPHIP, IC«-1 . 1 ) CABCIC2C 

OT It I )=FACT*( CY-CYP ) CA9C1C3C 

. 0 T 1 1 2 ) =F AC* * ( C° 5 I - C°S I " 3 ) CA0C1CAC 

DMt3>=EAC-MC°H!-eoHio) CA0C 1~5C 

0T2C ! ) =E ACLM CY-CTP ) CABCJOsC 

DT2C 2) =FACL*< C=> SI -COSIP) CABO 10 73 

DT2( 3)=e 4cl *( C pmi-cohIR ) CA3C 1 A 3C 

00 3 1=1.3 CABO 1 C 30 

ERICC I . I )=e c ICC 1, I )OTl C I )*CC3( ADCt IC.2) ) . C A90 110 0 

FR ICC l. I + 3)=FP ICC 1*1+3) +0 '’2 C I )*COSCADC( IC.2) ) CABC 1110 

FCICC 2. I)=EC IC t 2. I )OTl( I >*RAD-DTI( I)*C0S(AOC( IC.1))*ARM(IC.2) CA3C112C 

l/l 2.0’ It I )*CDS(abc( I0.2))‘ARM(ic.l)/l2. CABC 1 1 3 r 

FR ICC 2. 1+3 )=ER ICC 2, I+3)+OT2< I )*RAD-DT2( 1 ) *CCS( ADC t I C . I ) ) * AP MC I C . 2 ) C AM 0 1 1 AC 
1/12. OT 2t I ) * COS ( A DC ( IC*2))*AfiM(IC.l)/I2. CA9C115C 

ERI<f(3.I)=FCjct2.I)OTl(I)*OOOT!tn*r:QStArCtIC.3n*AQMtIC.2| CAB'* 1 1 AO 
I/12.-ARM(iC.3)/12.*OTlCI)*COSCADCtIC,2)) CABO 117* 

FR ICC 3.10) =FR ICC 3. I + .s)+DT2( I ) *RAD«-?T2 1 1 ) *COSt ADC t I C . 3 ) ) * APM ( I C, 2 ) C A -3C 1 1 9 ; 
1/12 .-afm(Ic, 3)/12.*DT2(:)*C0S( ADC (IC.2)) CAOO l 1 or 

3 CONT INUE CAOO l 2CC 

RETURN C ASC 1210 

END C AM^ ! 220 

SUBROUTINE MATR IX( CVAT.N, ROOTS. KAA.IEF) C .C<-ClO 

COMM ON /DAT/ A =c-, ( 1 73) , AF~ O a ( 50 .KHDE (26) ,LL COLO C* 
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1 


1 


F3PTPAM ri 


.GRUMMAN DATA SYSTEMS 


C '•MM' - *N/‘ ; P3/C4( 30 ) 

DIMENSION C M A T ( 14.14, 3), MAT( 14.14) . KOUNTI 3C 1 «C5(3C 1 
COMOL-X AM 4 T< 1 4 , 1 4 ) ,3 DO TS< 29 ) 

DOua_E PRECISION OMAT( 14.14,30) »D(3C.4) 

N» = -2 

I=(<OOE< 5) . EO .1 ) NP=1 

CALL M4PTY{ CM A T . C 4 , « 00 TS , K 4 A , 1 4 , NP , 3 , 30 * KOUNT , 

. 1 A'>'A r , Qm A" , MAT iC5,0,M) 

C ETUCn 
END 

SU9P3U T INE VA»OL( C^AT,C4,=COTS.K44,vCOL,NP, 

1 IN, N, <9'JN T . A M A T , a M A T » MAT, C 5, 0) 

COMMON/ INOUT/IW. I- 

D I MEN 5 ION AM AT ( ■'O )L , l ) . MAT(MCDL.l). SMAT ( W CCL , MCCL , 1 ) 

1 , C4( 1 ) • SCOTS! 1 ) . <OUNT( 1) ,CMAT(MCPL,MCOL.l ) 

2 ,C5( 1 ) 

D0J3LE PRECISION PMAT. SA , c , DtN.D.OP 
* • PGVAT 

COMPLEX DE T . revPLX , AMAT, G, VAI. YA. SC MPL X 
COMPLEX G3, 4C0' r 3.C = 

12 F'JCVAT ( 213, IP 50 1 6 .6/(0 22 • 6, 40 16. 6) ) 

14 F3RMAT< 1HC. 2( 1°~24.6,E 16.6) ) 

1 9 form AT( 1H- , 1 4X, 4hP~AL » 1 IX , 9HI MAGI NAC Y,1 9X .SHFPPOP ) 

2? C 0R v AT ( 313. 195F 16.6/(F 25.6.4F16.6) > 

’614 =3RMAT (/l°E24.6, tr 16. 6.E3C.6) 

DATA CP //TFrFFF^P-FFSSCcrr/ 

NC3L=MCPL 

IP nro*=nccl 

F\C> = jr 
INN=IN«-1 
03 107 1=1. NP3* 

03 107 J=1.NC0L . 

M AT ( I , J ) = C 

DO 112 K = riN,N 

U 2 QMAT< I , J , < )=C.P'' 

oo «;? k = t , in 

I , J.< l=CM£ T( I , J,K ) 
l c { CMA T ( I,J,<)) 1C 9, 1C 7, 1 09 
10 9 MA*( I,J) = K 

THE NUM3E5 IN ma t IS ONE GREATER Th*N THE DEG C EE O r THE 

1 0 t CONTINUE 

JS= ! 

I r ( N° ,L T ,C ) GO TO 126 
ASSIGN 129 to MZ 
GO TO a?0 

99 ASSIGN 257 TO MZ 
92P « ITF( IW, 23 ) 

23 F0PMA^(65H0^DSITI0n ANC COE^F I C I P NTS OF EACH POLYNOMIAL 
00 951 J9 = l.NOL 
00 951 19= 1.NC3L 

< l = MAT( 19, JO ) 

I"(<1) 951,951,962 

992 XR I TF( IV , 1 2 ) I 9, J 9 , (RMAT( I9.J9.X) , K*l.Kl) 

9Si continue 

GO T 3 mz, ( ; 39, 25T, 1 29, 1 1 C5) 


CHLCCO 30 
C9LCC040 
COLO CO 50 
COL^r C f>C 

CHLOC3 70 

CHL C ' 0 9P 
C9LC0C 90 
C3L3C10C 
C9LC 01 1 0 
C9LCG l 20 
C 3L r C 1 ’C 
C 3L r C 1 40 
C3LC 0 1 50 
C3LCC 16! 
C6LCC 1 70 
C 9L p 0 t 9 0 
C9LC0 1 90 
CBL'C 20 0 
C9LCC210 
C9LCC22C 
C8LCC ?3P 
CBLCC 240 
CPL P C 2 5 0 
C9LCC 260 
C^L ** '* *> t r 
C 9L 0 0 ? 9 r 
C3LCC290 

cbl: c ?'.c 

C3L C C 3 ! 0 
C9LCC 320 
C BL 0 C 2 3 0 
C-*LC C 34 C 
C«LC C 350 
C9LC 0 T6C 
C9LCC 3™ 
C 3L 0 0 3 9 0 
C PL 0 C 7 9? 
cblcc 

C3LC 0410 
PQLYNOMI ALC9t_- OAT 
CBL'* 0 4 : * 
C PL C C 4 ■* 0 
ClLCCa5C 
C 9 LC t •• 6 C 
C3L0C47C 
C^LC 0 4 90 
C3LCC490 
n= MATR IX ) cbl: 0 5C 0 
C9LC * *1 r 
C9LC 0 52C 
COL r ' 5 3'* 
C9L0 C 54P 

C BL ' c f 7 
c n L ‘ -•>: 
C .BL C 0 37- 


* 



PDPT=4N Ti 


G o u w M A N 


DATA 


SYSTfMc 


file: 


CA 3l E 


C DET CPN r AINS V ALU” D" CFTEPMINaNT 0 p 5MAT 41 TH G=1 

1281 I T E( I*. 1282)0E T 

1282 = 6 ~ M AT ( 1 2 H DE ”E=^INANT1P2* 1 8. 7) 

12* NC * C 

C COUN T N JM HEP OF N ON- ZE C 0 ELEMENTS BELOW THE DIAGONAL IN COLUMN JS 

do 12 c i*js.n®ow 

1= (M*T{ I . JS >)P3. I 2C , l 21 
121 NC a NC i 
IS a I 


i 


i 


i 


12C CONTINUE 

I C (NC-1> 17,1 25 * 1 3C 
17 w= I-FI I'», 1ft ) 

16 POBMAT( • matrix IS SINGULAR*) 

GO T? 257 

125 I={ IS-JS)PO. :a:i , 123 

C ONE INTEO CHANG" 73 I ANGULAR I S THE COLUMN. . 

123 00 12 6 JaJS.NC^L 

<1 = vaxC(Matj IS.J), VAT(JS.J)) 

MA = MAT( IS. J » 

MAT(IS.J) = MAT(JS.J) - .... - 

MAT(JS.J) = MA 
3D 126 K= 1 « K 1 

5 A . a 3MAT(IS.J.K) . _ __ . - - 

0MAT< IS, J,< > = 3 MA T(JS.J.K) 

126 3* AT( JS, J »K ) *“SA 
go to ia:i 

13C IS = JS + 1 

C LOCO 137 CFO’JCES ALL ELEMENTS PEL n W DIAGONAL IN COLUMN JS BY 


C AT LEAST ONE DEGREE 


I = IS 

130 »b(waT( I, JS>)90. 137,120 
129 IF ( y A T ( J5, JS1 ) 99.133.132 

13? IF (mat(I.js) - maT( JS.JSM 133,134,134 

133 DO 131 Ja JS.NCOL 

<1= MAY M MAT( J3. J) . MAT(I.J)) 

Ma a MAT(JS.J) 

MATC JS, J > = V A ^ ( I , J ) 

M AT( I , J ) a M A 
DO 131 K= l,<: 

SA S AMA'( I. J.< ) 

3MATCI»J»<) = AMAT(JS.J.K) 

131 AMAT(JS.J.K) =-S\ 

GO 70 1 39 

134 KI = ma-( I,JS) 

K J 5 = MATCJS.J3) 

<D = K I - KJ5 

F a DVAT< I , JS.KI >/ DMAT( JS. JS.KJS) 

I"( DABS ( F ) — 4.0) 1 C5 2, 1 G 51 • l OS 1 

1051 IF(KD) 90, '33.1062 

1052 00 235 J a j 3 i NC OL 

Kjo a m 4 7 ( J 6 . J ) 

IF(KJS.ED,'“ ) GO T 0 235 
O' ‘ 1 7 a < - , ,K j j 

< I = K ♦ < D 
" A'* A ^ a F* AM i T ( J S , J I K ) 


?■ 


CBLC OSAO 
c»l*c5o: 
CBLCC600 
CALC C 610 
C3LCC 62C 
CHLC0630 
CBLCP640 
CBLC C 650 
CBLC C66C 
CBLC 067C 
CBLC C 6 AO 
CBLC C* 90 
CBLOC70C 
C8LCC71C 
CBLC072C 
C3LCC 7 70 
CBLC C 7 4 C 
C8L0C75C 
CBLC r. 76 C 
CBLC C 7 7 0 
CBLC 0 7 AC 
CBLC C 7 9C 
CBLC C ? -C 
CBLC C 3 1C 
CBLC 0 A 20 
CBLC C97C 
CRLOC04G 
CRLCC 85C 
CBLC C 36C 
C. • r C 8 70 
Ci - - C ° AO 
CBLC C 5 ?C 
CBLC 0 900 
CBLC C 9 1 ^ 
CBLC C 92C 
CBLC C 9 ’’C 
CBL0C94C 
CBLC 0 950 
CBLC C P6C 
C3LCC97C 
CDLCC990 
CBLCCP9C 
CBLC ICCC 
CBLC 1C 1C 
CBLC 1C 20 
CBLC 1C 7C 
CBLC 1C 40 
CBL r ICS- 
C3L0 1 r 60 
CBLC 1C 70 
CBLC 1C AC 
CBLC 1' PC 
C AL r 1 I OC 

cblc i : i o 

C C 1 1 2 - 


I.. 

h> 
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n n o n o 


FILEO CABLE 


F3RTPAN T1 


GRUMMAN 


0 AT A 


SYSTEMS 


TF( < I — N ) 141,141,2 C8L0113C 

2 WR 1TE( IW.3) CBL0 1140 

3 FDSM AT (79^ DEGREE OF POLYNOMIAL FORMED WHILE TC I ANv. JL AP I 2 I NG OR I GI C 4LC 1 1 5C 


INAL MATRIX IS T03 HIGH 1 

GO TO 257 

141 IF ( DABS ( FBMAT - BMAT(I,J,KI) ) 

1 GO TO 13* 

- 3MATI I. J.KI>= 3MATII FBMAT 

GO TO 135 


136 BM A T I I « J , X 1 ) 

135 CONTINUE 
235 CONTINUE 


* O.DO 


JsJS . . .. 

142 CONTINUE 

KI=W4T( JS,J)TKD 
KJsMATCI.J) 

IF(<I .LT.KJ ) X I=K J 
MAT< I, J* a 0 
_ 33 14C X=i,<I 

IF( 3MA T ( I, J ,X ) > 135, 140 * l 38 
138 WAT< I, J) a X 
„1.4C CONTINUE 
J = J41 

I" f . , .F.NCOL) GO TO 142 
137 1=1' 

IF( I .LE.NPOW) GO TO 139 
T^INO) 123,128,1105 
1401 JS * JS +1 

I«r( JS-NCOL1129, 15C, 150 
150 I er CNP,LT*C ) GO TO 153 


r 


13 


4 . 


* A 


C3MAT( I , J,<) , K=1,K1) 


CBLC 1 1 60 

. C3LC117C 

,LE. 2.D-6 * DABS C FBMAT J » CBL'MISC 

CBLC 1190 

. . — . CBLC12C0 

CBLC 121C 
C3LC1220 

C3LC1230 

CBLDI24C 
DRDNTS LLC3L0125C 

— C3LC126C 

C8L0I270 
CBLC l 23C 
C3L01290 

C8L0130O 
CBLC l 310 

- - - - C3LC 132C 

CBLC 13A', 
CBLC 1 340 

C*iL?135C 

C3L0 1 260 
CBLC 1 3 tC 

- - CBLC138C 

CBL01390 

C8L01400 

. _ .... C3LC 1410 

COLS :^2C 
CBLC 1430 
- CBLC 1440 
C8L0145C 
CBLC 1460 
C9LC 14 7C 
CBLC 1 & 30 
CBLC 1A90 

CBLC 1500 

CBLO 1510 
CBL01520 


WCITE(1W,131 

FORMAT < 1H ,20C 1H >,13H FINAL MATRIX) 

DO I 5 1 J*l,NCOL 
DC 151 I=l,NROM 
<1 * MAT{ I , J) 

I F( < 1 ) 99, 151, 157 
*CITP( IW, 12)1, J, 

'£• CONTINUE 
153 LK = 1 

_LOOP lfO-ROPTS 3 C POLYNOMIALS ON DIAGONAL OF TR I ANGULAR I ZED MA TO IX ABiC3LClS30 
FOUND AND STORED IN ARRAY ROOTS. CBLClBAf 

COEFFICIENTS 3F ThE POLYNOMIAL EQUIVALENT OF THE DETERMINANT C^LDISSC 
Of The MATOIX are COMPUTED and STORED IN array C4 with C3LC156C 

C4C1) THF CONSTANT TFRM. C3L0157C 

I6C JM.NCOL CBLC 1580 

* MAT(J,J) CBL0159C 

CBLC 16'*.? 
CBLC 1610 

! 1 • •< 1 C0LC162C 

CBLC 1630 
CBLC 1 6 4C 


DO 
51 

MWMsK 1 4-1 
K 2 *XI -1 

P n l 63 K 
MMaMMM-X 

163 DIMM, A)* BMA t (J,J,K) 


PIKl.CQ.ll SO T 0 1 C 2C C3LC16A0 

161 CALL OOLYBTCDI 1 ,4 ),R30TS( 2*LK- ! ) , FOUNT! LX > , X2 ,D (I , 1) ,0 ( 1 . 2 ) . 0 ( 1 , 3 ) CBL * 1 66 C 
! ) C 3L ** 167“ 
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[ 


1ILE? CABLE 


F3PTOAN 


GRUMMAN 0 A_T_A_. 


' LK»L<*KMl _ . 

I*(M0D<K1, 2I.NE.CIC0 TO 1C20 

,C WMW ELEMENT STORED IS ARRAY FOOTS IF POLYNOMIAL IS OF OOO DEGREE 

■ 5*_R0QTSl2*L<-2>* R 

1020 IF1J.CQ.11G0 to 1004 
1001 00 1002 K> 1,<4A 

f-_10.C 2. _ .C5!K J a C4CK1. _ __ 

00 tC06 <* l,N 
: 1006 C4<K> » 0.0 

IFfKlI 99.163.1C0C 

1000 02 *003 K* 1 • < 1 

MMaSM* x 

1 , DO 1003 K3*1.K4A 

K6 * K4<3-1 

1003 C4(K41 a C4(K4) ♦ P!MM.4)*C5!K3) 

i, «4A *K4 . 

GO TO 160 

l 1004 03 1005 Ka 1,<I 

MMsMMM-K ... 

Y 1005 C4f<» a D!MM,4> 

K4A a K1 

160 COST INUE 

S CALL JUGGLE! ROOTS. ROOTS. KQUNT,K4A> 

03 306 lal.SFOY 

\ J>3 3C6 Jal.SCOL, . _ „ _ __ 

MAT(I.J)=IS 
I 00 306 K«l. IN 

c. 306 BMAT{ I » j.< ) =C M * T ! I • J. < ) 

4 IF(,NP.LT.-1 >50 to 202 

" 201 YOITeflW. 15> 

202 IF(LK.EO.l) GO T3 111C ._ 

1111 L»1 
J 62 G*FOOTS(L> 

i_ 64. ASSIGN 244 TO MDT _ ... - 

| GO to 2511 

l 244 GlaA3S(C4( 1 >) 

■JC.LOOP 26 1C - PLACE LARGEST PRODUCT. C4( I > »G* *! 1-1 > a IN G1 .. 

C 63» ERROR ESTIMATE G^ROOT 

f DO 26 1 C LP=2.K4A 

? G2=CA0S(G> . 

G2aABS(C4CLP>*G2»*(L9-l)> 

I =!G1-G2 >2611.2610.2610 
. 2611 G1=S2 
261 0 COST INUH 


2610 CONTINUE 

C DET CONTAINS VALUE 0<* POLYNOMIAL EQUIVALENT OF DETERMINANT OF 

C_MATFIX A’ ROOT 

IF(Gl .EO.C . >GO TO 25 
63aOET/Gl 

GO T 0 26 . - 

25 G3a(0..n.) 

26 IF(CA9S!G3> . LE.ENO.AND.NP.LT. -I > GO TO 256 

; WR I T F( I W» 2T > 

27 FORMAT! 6X, • THE ‘'OLLOAJnG EXTRACTED ROOT HAVE POOR ACCURACY* > 
VR IT®! Iw. 15> 


I 

.Y_S._t_E_ « - 

CBLC 1680 
CBLC 1690 
CBLC 1700 ■ 

C8LC 1710 

.C8LC i?2e " 

C0LOI73C 
CBLC 1 740 
C8LC17S0 
C9LC176C 
C9LG1T70 
CBLC 1780 
C8L0 1 790 
COLO 1830 

.COLC 1510 
C9LCI82C 
CMLCI93C 

. CBLC 1 840 f 

C8LC185C 
C3LC18&0 
CBL0187C . 
COLO 1880 
CBLC 1890 
C3LC1900 
C8LC1910 
CSLO 1920 
C8LCI93C . 
C8L0194C 
C3L01950 
CBLC 196C _. 
CSLGI97C 
C8LC1980 
CBLC 1990 
CBLC 2C 00 
CBLC 20 10 
CSLC2C2C 
CBLC 20 30 
CBL0 204C 
CBLC 2C SC 
CBLC 20 50 
CBLC 20 70 
C8L02030 
CBLC 2090 
C8LC210C 
CBLC 21 1C 
CBLC 21 20 
CBL0213C 
CBLC 21 40 
CBLC 21 50 
CBL0216C- 
CBLC 21 70 
CBLC 21 30 
CBL0219C 
CBLC 2200 p 

CBLC221C |ff 
CBLC 2220 mit 
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JFU.E9 CABLE 


FORTF AN Tl 


6 R U M M AN 


0 -A T. A- -S Y 5 T 5 M S 


•RITE* IW. 14) G.G3 

— -256 L*L4l 

l*-(K4A-l.GE.L >G3 TO 62 
|F(MP.LT,-U GO TO 257 

— LllC — KRITEt I*. 1910XC4CK1 .K*1.K4A> 

1010 FORMAT ( 1 1H0°QLYN0M1AL1P5E16.6/(E27.6«4£16.6> » 

257 ft STOPS 

" — 1105 — ASSIGN 1231 TO 'OtT . 

G*l 1 •• 0 • 1 
; C LOOP 2 1C 

vC EVALUATE EACH OCLYNOMIAL OF THEORIGINAL MATRIX FOR ROOT a 
C AND S r OS£ IN AMAT ARRAY 
2511 03 21 C I« 1.NP3M 

•. DO 213 Jsl.SCOl 

K s MAT(I.J) 

V A*C 3 • • 0 • 1 

1FIK-11 21C.235.227 _ 

227 YAsCMOLX«SNGL(BMAT« I.J.KD.O.) 

K = K- 1 

205 YA1=CVRLXC SNGLC3MATC1.J.K1 l.C.) 

ya=yai4ya*g 

« * K— 1 

tFCO 09.210.205 

210 AMATI I, J1=YA 

; jj*i 

225 DO 213J=JJ.NCCL 

to(CA8S(AMAT( JJ.Jll ) 220.213.220 
p 213 COST ISOS 

I DE‘ r = (C..3.) 

3 GO T3 229 

} 223 I^C J-JJ >09.230. 221 

| 221 DO 222 1= 1.NP3W .. _ ___ . .. ._ 

SCMPLX * AMAT { I. J> 

AMATf I. J)s4MAT| I,JJ| 

_.222 AMAT( I, JJ)=.-SCM»LX .... . . .... ... 

23C JS1 = JJ ♦ 1 

DO 224 JsJSl.NPOM 

FCMPLX=AMAT( I.JJ1/AMATCJJ. JJ> ...... . . 

!Ff CABSCPCMPLX) > 226.224.226 
226 DD 223 JsJJ.NCOL 

_223 AMATC I. J>=AM4T{ I , JJ-AMATC JJ* J)*FC*PLX 

224 COST IMUE 

JJ*JJ41 

IFf JJ.LT.NCOL) GO TC 225 

05T»( 1 ..0. > 

DO 242 Jsl.MCOL 

242 D*T*OET*AMATC J, J> __ 

229 GO TO MOT. (1291.244,256) 

ENTRV M4POY CCMAT »C4 .ROOTS « K4A . MCOL .NP. 

1, IN. M, KOUNT, AMAT. OMAT* MAT. C5. 0 »MCO> 

NCOLsMCO 
GO TO 10 
END 

SU3R0UTINE JUGGLE ( ROOTS.KT. KOUNT. <4A> 

DOUBLE PRECISION ft?OTS(t) 


C3LC223C 
CBLC224C 
CBLC225C 
CBLC 2260 
X3LC2270. 


CBLC 2289 
C9L0 22OC 
X3L9230? 
C9L02310 
C3LC232C 
C3LC2330 
C3LC234C 
C9L0 235C 
C3LC236C 
C9LC237C 
C9LC239C 
C3LC2390 
C3LC 2490 
CSL? 24 1C 
C3LC242C 
C3L0 243C 
C3MB2440 
.CBLC 2453 
C9LC24 6C 
CBLC 24T0 
C3LC249C 
CBLC249C 
C^.C 2500 
C3LC2510 
C9LC 252? 
C3LC253C 
C8LC2S4C 
CBLC255C 
CBLC 256G 
CBLC 257? 
COLC 2530 
CBLC 2500 
C3L0260C 
C3LC261? 
C9LC262C 
. CBLC 263C 
CBLC 2649 
CBLC2659 
CBLC 26 6 5 
CBL02670 
CBLC269C 
C3L025OC 
C5L0273C 
C5L0271C 
CBLC272C 
CBLC 2730 
CBLC 2740 
CBLC 2750 
C9UC2760 
CBLC 2773 
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-FILES CABLE 


FORTRAN T1 


. _ G «* UNMAN 


DATA SYSTEMS 


m 


complex pt 111 

REAL* 3 CR 

DATA CB/27FFFFF=FFFFFFF*F/ 

DIMENSION XOUNT! 11 

S* 1 .... . 

1*1 

1 IFfKDUNTC I | .GE.OIGO TO 3 

R T ! X | * CMPLXI3NSLC^OOTS(2*I-li».SNGLl»OOTS(2*II 

RT|X»1 )»CONJG(BT(iO) 

XsKf2 

GO. TO 5 . _ . 

3 RT( k)»CMPLX I SNGL t »OOTS( 2*1-1 »>. 0*1 
***♦1 

I*fBOOTSC2*I» *EO.CF >GO TO 5 . .. 

RT( X | sCMPLX ( SNGL! ROOTS! 2*1 II *5*> 

X«X*1 

... S 1*1*1 

IFiK.GE.K4A IRETURN 
GO TO l 

-- - END - - - . . 

SUBROUTINE ®OLYRT!AC.POOT,KOUNT,NN.O.A*T> 
DIMENSION XOUNT! 3) 

_._D0U3LE PRECISION *C i 5 ) t c OOT( 5) »Q( 51 <T( 31 *4(5) 

DOUBLE PRECISION B1 ! 1 » .9 2! 1 1 .X • Y ,Dt 

DOUBLE PRECISION D2 . DA3S • TOL • SI 

COMMON /BAR X/ CI.D2.X.NIX 

M a MM 

90 IF (A0!M+I>) ICO. 95. IOC 
95 BOOT! M > a 0 .00 

XOUNT! !M+I 1/21 a o 
M a M - 1 

GO T3 9C ... 

IOC TOL = 1 .05 

I * ! M - n 44C. 153. 106 

.133 .FOOT! II a - AS ! 2 ) /A0!1) 

XOUNT! 1 » a 0 

GO tq «60 

.106. XODE = -l . __ . ... 

N a M 

N1 * N * l 

00 110 I a 1 .N 1 
11* A! I) a AO! I > 

IF! A! N- 11)11 5. 112.115 ... 

112 81! U * X.D-5 
82! 1>* 1.0-3 

GO TO 120 ... 

115 B2! 1 )*-ACn* 1 )/A! N-l I 

81(11* —32! 1 1* ! A C N-2 ) /A ( N- 1 1 1 - 

120 IF !N - 2> 121.122.13C 

121 KOUNT(X + n * C 
A! 2) a-A! 2> / A! 11 

. GO T3 31? _ _ . 

122 K 3UNI T { X +1 1 a (j 
A! 21 *-A(21 / A! 11 


>1 


S2 


A !N 1 /A! N-l 1 


CBLC2780 
C9LC2790 
CBLC230C 
C8L02310 
.COLO 2923 
C8L0 283C 
CBLO 2940 
CBLC 2850 
C9L02860 
CBLC2870 
CNL0283C 
C8LC 2890 
CBLG29C0 
CBLC 29 1C 
CBLC 29 2C 
C8LC293C 
C3LC294Q 
C9L0295C 
CBLC294C 
C8LC297C 
CBLC 2930 
CBLC299C 
C8LC3C30 
C*»LC3C10 
C8L03C2C 
C3L0 3C3C 
CBLO 3040 
CNL0 3G50 
C8LC33 5C 
C9LC307C 
CBLC 3C8* 
CBLC3C 9C 
CBLC 3100 
CBLC311C 
CBLC 3120 
CBLO 3 l 30 
CBLC 31 4C 
C3LC3150 
CBLC 31 60 
CBLC 31 70 
C3LC3190 
CBLC 3190 
CBLC 320 0 
CBLC 3210 
CBLC 3220 
CBLC 323 C 
C9L03240 
C3LC32S0 
C3L0326C 
CBLC 3270 
CBLO 3280 
CBL03290 
C3LC330C 
CBLO 331 v 
CBLC 33 2C 
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ILEO CABLE 


FORTRAN T 1 


6 R U M M A N 


13C 


AC 3) *-Af 3) / Ml) 

GO TO 310 

CALL GFOWLt TCN-2) .QfN 
IT6R8 * 0 

-KEY .« 30 

INK * 15 
MUROER=20 


n 


O A T A-. SYSTEMS 

C3LC333C 

C8LC334C 

C9LC33S0 

C3L033A0 


220 

LOVE * 
I TER 8 

4 

= items 4 

1 






— 

233 

OC 1) = 

AC 1 ) 







v 

0(2) = 

4(2) 4 

3 

It 

1)* 

Q( 

1) 



03 24 0 

J * 3.NI 







24C 

OC J) = 

AC J) 4 

3 

1( 

11* 

QC 

J- 

1 ) 

T_ „ ■ 

TCI) = 

OC 1 ) 





- 



T f 2 ) = 

0(2) 4 

3 

1C 

11* 

T ( 

1) 



DO 253 

J * 5.N1 







250 

Tt J-2) 

= OC J-2> 


4 

Bill) 

* 

TC 


x= «ic 

l )* T ( N— 1 ) 


4 

32C 1 

)* 

T 


C3L0338C 
C3LC 3390 
-C3LC34 3G 


H2C1I* O ( J— 2 1 


92m* TfJ-4) 



265 

27C 

271 

272 


CALL PUFF (T,0) 

91111= Bit 1 )4 D1 

B2C 11= B2( 1)4 02 
IF (KOOE) 260.260.280 
_I e CTOL* DA9S( 0 1 1 - , 

tF (TOL* OABSt 02 1 - 

IF CKODEI 265.263.460 
KODE =1 

51 * D48SIOH 

52 = OABSt 02) 

GO TO 220 

LOVE = L1VF - l 

IF CLOVF) 223. 293, 220 
IF (JTEP9 - KEY) 220.271,271 
MURDER = MURDER - l 
IF CMUFDER) 439.285.272 

KEY = KEY ♦ INK 

B2C 1)=-B2( l I— .500* f Bl t 11**2) 


CaBSCBUD) 1 

OABSfeac ini 


261.261 *27C 

262.262 .27C 


C3L03410 
C9L0342C 
C3LC34 33 
CBLC3440 
C9LC3450 

C9LC 3463 

CBL0 34 70 
CBL03493 
„ C9L0 349C 
CBLC353C 
C3LC351C 

C3LC352C 

C3L0 353C 
C3L0 3540 

C3LC355C 

CBL0 3560 
CBLC3570 
.. C9LC3SBC 
C5L0 359C 
C9L03630 
__ C3LC361C 
C3L0 352C 
C3LC363C 
— CBLC3643 
C3LC 365C 
C3LC3*63 
C3L0 367C 
C9LC3690 


GO TO 220 

280 l c (4. DO* DAB SC D 1 ) - SI) 281.41C.410 

281 IF ( 4 . CC* DABSCD2) - S2) 264,410.410 
285 ITER 8 = 99 <3 

29CLK = K ♦ I ... 

KOUNT(K) = ITER 3 * 10 

ACN) * Bit 1 I 
..... A(Nl) * 02C1) 

N * N - 2 
NI * N1 - 2 

i DO 300 I * 1,N1 . _ 

3CC AC I I = OCI) 

IFC0ABSC91C l ) >. LT.. 100*0 SOFT! DABSC 02 <1 )) ) ) 

181 1 t)=.l DO *OSOP TCDA0SCB2C1))) 

GO TO 120 

310 DO 323 I = I.M 

_ X * A3 C t + 1 ) . . 

A ? t I ♦ 1 ) = AC 141 ) 

32C AC 1*1) = x 




C3LC369C 
__ CBLC37C0 
C3LC 3710 


CBL0372C 
C3LC 37 3C 
CBL0 3743 
C3LC 3753 
C3L0376C 
CBL03770 
CBLC378C 

C3LC379C 

C9LC39C0 
C5LC 3910 
C3LC3A2C 
C*4-C 38*3 
CBLC 3943 


C3LC3B53 
C-3LF 3 36C 
CBLC 3973 
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ff !L50 CABLE 


FORTRAN TI 


GRUMMAN 


Q A T A Y S T. S M S 


330 
34 C 


_ 35 r 

360 

370 


t ( n = 

03 370 

tc j-n 


. 380 
385 
390 


40 C 


„42C 


I 


430 


432 
431 

433 


440 


450 

.460 


TC J-2) 


MURDER » -i 

N .* M . _____ . 

N1 * N 4 1 
L * N 

<_* 0 

CALL. GROtfLt T(M-2) »0 (N) ) 

I ~ (L - t) 440.340*400 

J.TSR8 . * 0 , 

Q(ll * A( 1 > 
films A?(2) 

.ITERS * 1TER8 4 1 

03 360 J » 2.N1 
Q(J) = A(J) 4 Bl(l)* O(J-l) 

0(1) 

J s I.Nt 

*0(3-1) 4 81(1)* 

01 = 3(N1) ✓ T(N> 

91(1 >= 811 1 ) 4 01 

tP (DABSCPt(H) - TOL* DABSCDl)) 
1* (1TEB8 - 8) 350.385.350 . 

ITSR8 = 9 

IC3UNTCK41) * ITER 8 

A3( 2) * 81(1) 

GO TO 449 
K * K 4 1 

KOOE = C . . 

81(1)* AC(L) 

82(1)* A9( L 41 ) 

ITEP8 * KOUNTCK) 

KEY * 1TEP8 4 8 

I s ( M - 2) 220.409.220 

IT£P9 * ITERS 4 1 

X* 81 ( 1 )**2 4 4. DC* 82(1) 

IF (X) 42C. 430.430 

AS(L) * .500* OSOOT(-x) 

A0(L4l) * .530* 91(1) 

K OUNT ( K ) s - | TER 8 

L * L - 2 

GO TO 330 
X * DSORT(X) 

_I*_C9I( 111 432.431.431 

X * -X 

AO (L ) * .500* (91(1)4 X) 

A0CL41) * -82(1)/ AtfCL) 

K9UN T (K) * ITERS 


380.39C.390 


L ' 
GO 
J i 
00 


* L - 2 
TO 33? 

* N 1 
450 I 


ROOTt I ) 
AO(J) * 

J * J - 
RETURN 
END 

SUBROUTINE 


I * l.N 
* A0( J ) 
A( J ) 

1 


GROWL (4 . Y) 


C8LC 3880 
C9L0 3890 
CBLC3900 
C5LC3910 
-C9L93920 
C8L0393C 
C3LC3940 
C8L03950 
C8LC 3960 
C8L03970 
.C8L0 3980 
C8L0 399C 
C3L04C30 
CBLC401? 
C9L04C20 
C8LC 40 30 
C8LC4C40 
C8L040 5D 
C8L04C60 
CBLC4070 
C9L04080 
C8LC409C 
. C3L0410C 
CBL04110 
C8L04120 
C9L0413C 
C8LC4140 
C9LC4150 
C9L0415? 
C9L04X70 
C8L0418C 
C8LC4199 
C8L04200 
C8L04210 
C9LC4220 
C3LC4230 
C8LC4240 
C8LC425C 
C8L04260 
C8L04270 
-C9LC428C 
C5L0429C 
C9L04390 
C8L04310 
C8LC4320 
C0LC433C 
C5LC4340 
CO..C4 35? 
C0LC436r 
C8LC4770 

C8L04380 
C9L04390 
C8LC44C0 
C9LC 44 1 C 
C8L0442C 


I & 


97 




FILE9 CABLE 


FORTRAN Tl 


6 RU M M A N 


D0U9LE PRECISION At 21 ,B , Xt 2} . Yt 21 ,T 

COMMON /BARK/ X.B.NIX — - - 

RETURN 
ENTRY RUFF 

IF t ABStSNGLtSll - ABSt SNGL4 A ( 2) I >1 100.120,110 
100 T * B / Af 2 ) 

— . X( 2) = tTFYtll -.YU)» / uu» - -T*AiHl - 

xtt) «-(4(l)*X(21 ♦ Y t 1 ) ) / At 21 
RETURN 

—110 T * At 21 / B .. .. . - - - — 

Xt 21 « t T*Y t 2 1 - Ytlll / t A t 1 1 - TF A (2)1 
Xtll * —(At 21*Xt 21 ♦ Y( 21 1 / R 

RETURN - 

120 tF (SNGLtBll 110.130*110 
130 NIX * l 

RETURN - 

ENO 


C9L044 3C 
CBLC444C 
CBLC44S0 
C3LC4460 
-C9L04470 
C3LC44 9C 
C9LC 4400 
COL C 4500 
CRLC45I0 
CALC 4520 
C3L04539 
C9LC454C 
CALC 4550 
C9UC455: 
C9LC4ST0 
CBLC45AC 
CALC 45<»C 
WBLC46C0 
C3LC461C 
C3L0452C 





FILE: RPU? 

DATA 

” x*1 


6 

R 0 H H A H 

DATA 

SAMPLE 

INPUT FOR 

ACTIfE CABLE 

PPOG- BASIC : 

LONG CHAP. I CORP PE? OH? 

i -i c 

0 1 2 C 

4 3 0 

o 

0 1 



3. 

0. 

0. 


0. 

5.80 

-1.86 

0. 

10.95 

-14.68 

.0500 

.0824 

.033 

0. 

.935 

-1.630 

0. 

0. 

-7.77 

• 1.P62 

-.1109 

.1227 


-.0341 

-.1863 

.0231 

• 378C 

.0824 

- .11 32 

.1923 

.0091 

-.0681 

• 2380 

-.1162 

-.0714 

.0005 

-.0005 

-.0001 

1.1 

0. 

4. 


0. 

.865 

446. 

ft. 72 

.000805 

152. C 


9.16 

1.4 

11.5 

-.8 

3.60 

21.4 


22.95 



3. 

0. 

96. 


-96. 

-5. 

-5. 

75.0 

263. 

96. 


0. 

-5. 

185. 

0. 

0. 

6. 


27.8 

0. 

0. 

o. 

.9 

.9 


4.0 

0. 

“ 

.c< 

.00 

.01 


.00 

ICO. 9 

40. 

0. 

181. 

96. 


152. 

6.66' f 


ft. 

-5.8 

0. 


2. 

3. 

2. 

2. 

3. 

2. 


180. 

96. 

72. 

180. 

-96. 

72. 


8C. 

80. 

50. 

56. 

5. 

50. 


0. 

0. 

0. 

0. 

0. 

0. 


0. 



12.8 

1.53 

.2374 


7.0 

.022 

3.0 

.00 

CO. 

3. 


0.00 

0. 

0. 

0. 

C. 

.0 


0.0 

0.000 

0. 

0. 

0. 

0. 


0. 

0. 

0. 

0. 

n. 

0. 


0. 

0. 

0. 

SARPLE DATA-L3F5 CHAP 0? THFTA/ESO TP.ANS F0NC V FEEDBACK 

6 FP.EQ 3ZSP, 

1 -1 2 

0 0 2 0 

V 3 0 

c 

0 1 11 2 

C 0 -1 60 


137 7.5 







138 -IOC. 







140 -17C. 







SIRPLE I 

SPOT OF ?EL 

■C. W LIFT CABLE -CHAP. 

hoots option 


1 -1 0 

C C 2 C 

9 3 C 

■ 1 

0 10 8 

0 0 


48 C. 







49 0. 

■ 

- 



. . - . - - „ 

— . — 



SAHFLE INPOT POP CABLELESS MODEL 

W TPANSFEP 

FUNCTION OPTION 

1 1 C 

C C 2 0 

3 1 r 0 

* n 

0 -1 15 3 



48 .865 







49 *45. 







SAMPLE OF 

ACTIVE CABLE STSIER-LAT 

DIP RODE V 

TEANS. FUNC. 

OP. 

1 0 0 

0 0 2 0 

10 10 0 

c 

0 1 

11 2 



* 

! s r ?. 


I 










5AMPLF INPUT fob ACTI VE^CADLE PROG-BASIC lon 
FRONT CABLE HOB I 7DNTAL ,RF AP CABLE VERTICAL 
NO SNUBBERS 

NO LIFT/ANTI-LIFT CABLE 
FEEDBACK LOGIC IN 


CODE MO 5. fob THIS CASE. 

1 2 3 A 5 ft 7 8 9 10 II 12 13 

1-IC012043000 I 
INOU” OAT A AS SPECIFIED IN »FBO ARRAY 


AEPOI 

X >» 

C .0 

AfOQC 

21 a 

0.0 

AEROI 

3 1 = 

O.C 

AEBOI 

ft) = 

-l ."ft 

*rRn< 

71 a 

0.0 

AEBOI 

81* 

1C. 9 

AEROt 

1 1 )» 

C .B3AE-CI 

APR DC 

12) a 

0.330R— 01 

AEROI 

131* 

r .c 

Af = 0( 

1*1* 

r .7 

Afo o < 

171 = 

0.0 

AEPOI 

181- 

-7.77 

»r=m 

3 : i* 

C .123 

AEC DC 

221— 3. 3A1E-01 

AEFPI 

231 a-0 • 1 86 

AES-iI 

26 >- 

C .B2AE-01 

*rsn < 

271 — 0.113 

AEROI 

281 a 

0.192 

AEROI 

311- 

C .238 

AECQ C 

32 1 a— 0. 1 1 6 

AEROI 

3 3 1 -— 0 .71 AE— 0 1 

AE=OI 

7*1 — — C . 1 CC E_- 0 ?_ 

_ A E c G ( 

371 = 

0.0 

3EBOI 

38 1 * 

O.C 

AFB 11 

*11 = 

C .0 

AfKOC 

A2) a 

0.0 

A 2 00 I 

431 = 

O.C 

AER'H 

Aft | * 

A .CO 

AFRQC 

A 7 1 a 

0.0 

AEPOI 

48 1 a 

0.865 

AEROI 

SI 1 = 

C .8O5E-03 

Af CDC 

52 1 * 

152. 

AERO I 

531* 

9.16 

AF= 11 

5ft 1 *— C .SRC 

Ac toe 

5 7 1 a 

3.60 

AEROI 

5 8 1 * 

21 .4 

AEROI 

ftl 1 = 

C .0 

AtODC 

62) a 

0.0 

AEPOI 

631 * 

0.0 

A* = OI 

ftft ) a 

C .0 

ATFOC 

ft 71 a 

o*o 

AEROI 

481* 

9ft .0 

ACRUI 

T I 1 = 

— 5.00 

A£PD< 

721 = 

75. 0 

AEROI 

731 = 

2ft 3. 

A- POI 

Tftl* 

-5 .CO 

ALr>OC 

771* 

1 85. 

AEROI 

781 = 

c . c 

AEROI 

3! )* 

27.8 

AfF D( 

821 = 

0.0 

AEROI 

831 * 

0.0 

AEB It 

3* 1 a 

r .900 

At 

871 a 

4.00 

AEPOI 

88) a 

O.C 

ASBOI 

Ot»s 

0 .0 

A€F 0 ( 

921a 

0.1 OOF— 01 

AEROI 

931* 

0.0 

AEROI 

1ft ) a 

r .o 

Af CO< 

971a 

l 81. 

AEROI 

98 1 * 

9ft. 0 

AFO Jl 1 

: t 1 = 

C . 3 

AFRO! 1021 = 

A. 00 

AEROU03I- 

5.80 

Arco ( . 

'ft >* 

3. CO 

ArPf) I IC 7» a 

2.00 

AEBOI 1 081 = 

2.00 

AE C Mill)- 

lie. 

• etui 1121 = 

96. C 

AE RQll 131 — 

72.0 

AEROI lift)* 

72.0 

AFBOI 1171= 

80.0 

AEPOI1181* 

80.0 

AFRO! 1211- 

■.00 

AFODI 1221= 

50.0 

AEPOI123I* 

0.0 

«>ro"f ; 

,?* 1 a 

0 .0 

AFP (3 I 1271a 

o.o 

AEPOI 128 1 — 

0.0 

AEROI : 

T 1 » = 

I J. 8 

A£P-M 

13 21* 

1 . 53 

AEPOI1331* 

0.237 

AT R o| ; 

7ft)* 

3.00 

A E ft 01 1371 = 

O.C 

AEROI 1381a 

0.0 

AF= 11 1 A I 1- 

C .o 

AIPOI 

14?)# 

0.0 

AFPOI1A3I- 

O.C 


C .0 

ArBftI 1471* 

0.0 

AEPOI 1 A8 1 a 

0.0 

AFRO! 151)* 

0.7 

AERfll | 521 « 

0.0 

AEP 01 1 53 1 * 

0.0 

AFCTI ISft»- 

o.o 

AFRO! i 771- 

0.0 

AEPOI158)- 

O.C 

Aren 

0 AT A IN STA9« 

AXIS AT EOUAT, CFNTFO 




X »* 

0 .0 

Af «D< 

21* 

0.0 

AEPOI 

31* 

0*0 


M = 

- I . A -1 

AFPOC 

71a 

O.C 

AEPOI 

81* 

10.2 


111* 

C .824E-01 

AFP DC 

l 2 1 * 

O.35AE-0I 

AEROI 

131* 

0.0 

AE PO( 

16 1* 

C .3 

ATPOC 

171* 

0.0 

AEBOI 

181* 

-7.77 

*r*nc 

?l 1* 

C . I 1 2 

Af PDC 

2 2 1 *— 0 . 3AIE_01 

AEPOI 

231— C. 18ft 


26)* 

r .81 3F-CI 

*rPO< 

271 a- 0. 1 07 

AEPOI 

281* 

0.192 

AFR 1| 

^11* 

0 .23" 

A^OC 

721— 0.; 16 

AEBOI 

331--C .690E-0 1 

A£CO< 

1‘) * 

-0 .OSCE— 04 

AFFIi 







CABLE CONE IGUFAT JON ON MODEL 
g -PONT CABLF IS HOOI7NTV. AND PEAO CABLE IS VERTICAL 
8 CABLF gEOMetby-CABLE NO. 1 CABLE LENGTH- 0.1.2337TE 03 IN 

Clft. COS.*CEG AFM-IN 

O. A82S.77F C2 0.278JC0E 02 

P. 417822E 02 0.40CO«0E 01 

•’.8O0BCAE 02 0.0 


CABLE LENGTH- 0.123377E 03 IN 


CASE NO— J 


1 


CABLE GEOMETRY-CABLE NO. 2 
BID. COS. -DEG APM-IN 



i 


14 

15 

Ift 17 

18 19 

20 21 22 

c 

0 

0 0 

0 0 

0 C 0 

AERfil 

41- 

0.0 

AEPOI 

5 ) — 5.80 

AEROI 

9|« 

-14.7 

AEPOI 

IC)* 0.S0CE-0I 

AEPOI 

ID* 

0 .935 

AEBOI 

15)* -1.63 

AEROI 

•91* 

-1.06 

AEPOI 

201—C. 11 1 

AEBOI 

' 4) - 

0.231 E— 0 1 

AFPDI 

251- 0.378 

AEPOI 

2)1* 

0.910E-02 

AEPOI 

30) — 0.681E-0I 

AEROI 

74)- 

0.S00E-03 

AEPOI 

35) — 0.5CCE-03 

AEROI 

39 ) — 

C.C 

AEPOI 

40) * 0.0 ... , 

AEROI 

44 1* 

1 .10 

AEPOI 

45)* 0.0 

AFPOI 

49) a 

44ft, 

AEPOI 

50 ) * 4.72 

AEPOI 

54 1* 

1 .40 

AEPOI 

55)* 11.5 

AFRO! 

59)* 

22.9 

AEPOI 

601* 0.0 

AEBOI 

ft4 ) - 

0 .0 

AFB 01 

651- 0.0 

AFPOI 

69)* 

-96.0 

AEBOI 

70)* -5.00 

AEBOI 

74 1 * 

96.0 

AEBOI 

751- 0.0 

AEPOI 

79) a 

0 .C 

AEPOI 

PO ) * 6.00 

AEROI 

84 1* 

O.C 

AEPOI 

851* C.90C 

AFPOI 

89)* 

0.0 

AEBOI 

90)- 0. 1 COE— 01 

AEROI 

94)* 

too. 

AEPOI 

95)* 40. C 

AEROI 

99 ) a 

152. .... 

AEROtlCO)* ft. 67 

AEROI 134 | a 

0.0 

AEBOI 1051- 2. CO 

AFRO! 1391* 

3. CO 

AEBOIllO- 2.00 

AEROI 1I4|* 

180. 

AEPOI 1 1 5 ) a -96.0 

AFRO! 1191* 

SC.O 

AEBOI120|a 50.0 

AEBOI 1241- 

0 .0 

AEBOI 1251- 0.0 

AEPOI 129)- 

O.C 

AFPOI 1 30 ) — O.C 

4FR0< l J4I* 

7.00 

AEPOI 1351- C * 220E— 0 1 

AC R 01 1391 = 

3.00 

AEPOI 1401- 0.0 

AEROI 1441- 

0.0 

AERO I 1 45) a 0.0 

AEPOI 149)* 

0.0 

AEPOI 150)* 0.0 

AEROI 154 |* 

0 .0 

AEPOI 1551- 0.0 

AEROI 1591- 

O.C 

. AFPOI 1601* 0.0 

AEPOI 

4 1 » 

C .0 

AEPOI 

5>* 5.80 

AEPOI 

9 >* 

-13.8 

AEPOI 

!0>« 0. 5C0E-01 

AEPOI 

14 ) » 

0.935 

AEPOI 

151* -1.57 

AEROI 

19) — 

-1.06 

AEROI 

20> — 0.111 

AEROI 

24)- 

0.228F-01 

AEROI 

251— 0.357 

AEROI 

29)- 

0 .9106-02 

AEROI 

301 — 0.6F2E-0I 

AEROI 

34)* 

0.S0CT-03 

AEROI 

35)— 0.5C0E-03 










->'.4H.i32rt 02 f . ZTEOOOF 02 
C. 13421 HE 03 - 0 . 40 C. 00 CE 01 

C.a*)5004E 02 0 «c 


CABL r EO'IETFV-CABLE NO. 3 CABLE LENGTH* 0 . 1233 B 3 E 03 IN 

r, >. COS.-CEG APM-1N 

.... C . 2332 T 2 E 03 - 0 . 60 C 801 E- 01 . — - 

-0.399999E 02 C.O 

- 0 .IA 32 T 2 F 03 - 0 . 90598 GE 00 


CABLE GiOMETPy-CAOLC NO. * 

DIP. COS.-OEG ARM-IN 
0.129705E 03 -0.60C769E 

-0 . 809999E 02 0.0 

-C.397053E 02 0.906388E 


CABLE length* 


01 


00 


Q*i 15261 E .03 IN 


ITERATION PARAMETER * 4 

ACCZ " , -39S42C0E-33 

ACCX - . .9796H825E-03 
TM*00T*-0.24915O06E-03 BAD/SEC 


tf 

a 

ii 

~L> 

i _ 

i 

* 4 # 

O 

J 


AEPOPI 
AEK )PI 
AFPHO( 
AERHOI 
ASP JPt 
AEROPI 

AEPOPI 


-0 I 


EM. *tt ., 0 efi_T\I.G CABLE TENSION 
TH-T« * 1 ,c 2 OEG 

DELTA . -1.33 DEG 

EOT CA I. TENSION* 

PP CAB.- TENS1JN. * 

A r °D DATA IN BOOT 
l I »-0 ,9 ««e 
4 1 = -J .44 
11 Ix-O.PISE-Cl 
i4i* c .c 
211*0.110 ..... 

26 1 * 0.T3Ot-Cl 
Jll* C.23B 
3* l=-C.I04C~03 


0 . 127591 E 03 L 3 S 
0.1C021AE 03 CBS 
AXIS AT EOUAT. FEE. CENTER 


AKOnC| 

.rsop < 

A r »0P ( 
AEROPI 
AESOP! 
AEPOP< 
AEROPI 
AE»0P! 


?»J-0.770 AFOOP! 

71 * 0.103 aEPOPI 

121 = 0.3PAE-0I AEROPI 
171* 0.0 AEPOPI 

221*-C.4C5E-01 AEPCP! 
271 *— 0 . I 05 AEPOPI 

321.-0.1 IS AEPOPI 


31* C.264E-01 
HI* -10.2 
IJ»* 0 . 1 68E— 0 1 
181* -7.77 

231--0.168 

281* 0.192 
33 1 *—0.71 IE— 01 


AEPOPI Al* C.290 AEPOPI 
AEPOPI 9f* -13.8 AEPOPI 
AEPOPI 1A !*“0 .935 AEPOPI 
AEROPI 191- -1.06 AEPOPI 
AEPOPI 2«>* 0.213E-01 . AEPOPI 
AEROPI 291- 0.I03E-01 AEPOPI 
AEROPI 3AI* 0.500E-03 AEPOPI 


51* -S. 8S 
101 *— 0 *S1 5E— 0 1 
151* -1.57 
2C l*-0»l 1 3 
251- 0.356 
30 1— 0.660E-01 
351— 0.A90E-03 


♦♦♦♦ lohgituoinal stability ♦ ♦♦♦ 

POSITION ANO COFEE I C I ENTS DE EACH POLVNOM1 AL OE M TR I X_ 

(.9031 son — 01 

4.7199990 00 

-1 .5300850 00 


1 

t 

i ■ boa i too n 

5.9931590-01 

2 

1 

3. 30 59370 01 

1 . 20 73010 01 

3 

1 

. -5.?*>*'567D 01 . 

4.2T74»80 00. 

4 

1 

2.40951 60—02 


t 

2 

-l. 0142810 02 

5.9438310-34 

2 

2 

6.2HE63CD 03 __ 

3.3C 13000-02 

3 

2 

2.S1CT02D 03 

4.3576570 01 

4 

2 

-5.S4’'.39O-02 


. 1 

1 

._-l, 3322140 Of 


2 

3 

- 3 • 2C 999 2D— 02 


j 


7.4264720-02 


1 

4 

7.46 744 6D 02 

2.C3344E0 — 0I_„ 

2 

4 

1.9S3QTRD Cl 

3. 5 76 7 7 CO — 01 

3 

4 

1.16313CD Cl 

7.701 3770-02 

4 

4 

i.ocoooeo cc 


DETERMINANT -5.2237613C 

05 0.0 

OCT 

ERMINANT -5.223T513E 

05 9.C 

DETERMINANT “5. 223T606E 

05l 0.0 

DETERMINANT -5.223759AE 

05 0.0 

DETERMINANT -S.2237551F 

05 0.0 


;|.5T33J20 00_ 

2.1924420 01 


4 . 719999^. CO 


DETERMINANT — S .2 23 T 600 E 05 0.0 








dftf 


. . mm 

i . jm 

1 , 


6- 


BMlNVr, -5.723.ftHF 

05 O.C 



• 

DETERMINANT -5.223 

;7656F 

05 0.0 




OETftJMlNANT -5.2237ft 566 

05 0.0 




DETERMINANT -5. 2237. >735 

05 0.0 



• 

DETERMINANT -5.2237638? 

05 O.C 







F INAL MATRIX 




1 

1 

-1 .89*1760 

01 




• 

1 

2 

1.0 1428 ID 

02 

1. 3890080 

00 



2 

2 

-7. 562J33D 

0? 





i 

3 

1 . 3322140 

OC 




a 

2 

3 

-7 # 1607840 

CO 

2. 2080230- 

01 



7 

3 

3. 2953250 

OC 





1 

4 

-7.4674460 

02 

-2.5076220 

01 

-4.7199990 00 


2 

4 

4.0577710 

03 

8.5925760 

02 

4.1839170 02 

— 

7 

4 

- 1. 88520 30 

03 

-9.8791580 

01 

-1.247069P 02 

* 

4 

4 

-1.9192070 

90 

-2.6078880-02 

-5.9759080-02 

m 











pfal 


IMAGINARY 




-7.9829660-01 

_-2. 5*57170 00. 
-1.3476300-03 


-5.7921890-01 
-2. 8554620-04 


-8. 39^*77F-03 4.3200216 OC 

-8.39S477E-03 -4.3290216 00 

-2.351342E 00 _ 1.3508966 01 

-2.341 742E 00 -1.3598966 01 

POLYNOMIAL -4.410895c 05 


ERROR 


-2. 92264 8E -07 


-2.922648E-07 


— 9. 9 085 30 E— 06 


— 9. 90 8530 E— 08 


—2 .386554E— 07 
2 .386554E— 0 7 
4.1 66 396 E— 07 
— 4 . 1 66396E— 07 


— 1 . 230982E 04 -2.820763E 04 -6.361116E 02 -1.347842E 02 


POLYNOMIAL W CONST TEAM FIB ST - _ 

-0.4R109TE 06 — 0. I 2 30986 05 -0.2820766 05 -0.636112E 03 -0.134784E 03 

e’rjo. IMAGINARY T H/0-S*C 1 /T M/D P6RIOO-S6C ONATF-CPS UNDNAT-CPS DAMP RATIO 

-0.8398P-C2 *-0.4329*: 01 0.4253E 02 0.12126-01 0.14S1E 01 0.6890E 0»/ 0.6S90E 00 0.1941E-02 

-0. 3S1E 01 *-0.13606 02 0.29486 00 0.33926 01 0.46206 00 0.2164E 01 0.8196E 01 0.1704E 00 


' #• 


U 


* 






\ 


OECAV RATIO 
0.98796 00 
0.3374E 00 



CASE_NQ!L_l SAMPLE PATA-LONG CHAR of THETA/EMO TRANS FUNC * FEEDBACK & FREQ RESP. 

FRONT CAGLE HOP I ZOMTAL.BE AR CABLE VERTICAL 
NO SNUBBERS 

NO LIFT/ANTI-LIFT CABLE 
FEEDBACK LOGIC IN 


CODE NOS. FOP THIS CASE. 

t ? 3 4 5 * 7 8 9 !'• H 12 13 14 IS 16 17 18 19 20 21 22 23 24 

l-l 2 0 0 '< 0 10 3 0 0 0 111 2 0 0 -1 60 0 0 O O 0 

data CHANGE 
137 7 .“000 

- 1 38 - ' ''6.0C - . - 

14" - . . .00 

fceo.. -y response computation 


EM. ATT..DEFLTN.e CABLE TENSION 

. theta ». |,«j DEG. ... . _ _ . „ . . _ 

DELTA = -1.33 OEG 

F»T CAB. T=NSION« f'.1275<j|C 03 LBS 

PR CAB. TESSti'* = 0.1C021AE 03 L3S 

♦♦♦♦ longitudinal stability ♦♦♦♦ 

COMPUTATION of THF-'V emo numerator boots 

PCLTNOA I AL _W. CONST T=PM FIRST 

0. 96984 7E C3 0.I5324IE 02 0.S2302SE 02 

REAL IMAGINARY T H/D-SEC I /T H/O PERIOO-SEC ONAT P— CPS UNDNAT-CPS OAMP RATIO DELAY RATIO 

-0.146SE 00 ♦-C.A304E 01 C.4732E 01 0.2I13E 00 0.1460E 01 0.6850E 00 C.6S53E 00 0.3402E-0I 0.8074E 00 


COMPUTATION. OF THE DENOMINATOR ROOTS 


POLYNOMIAL. F CON jT TERM FIRST 

0.6013SBR 07 0.3914I6E 06 0.39939SE 06 0.718007E 04 0.150616E 04 

0.4^S912r 01 


REAL 


. IMAGINARY 

T H/p-SEC 

1 /T H/D _ 

PERIOO-SEC 

ONATF-CPS. 

UNDNAT-CPS 

DAMP RATtO 

DECAY 

RATIO 

-0.3R86E 

00 

♦—0.4017.' 31 

C.1739E 01 

C.57S1E 00 

0.IS64E 01 

0.6394E CO 

0.6425E 00 

0.9875E-01 

0. 5361 E 

00 

-0.1 SP6E 

01 

♦-0.1569E 02 

0.4344E 00 

C.2302E 01 

0.4003E 00 

0.2498E 01 

0.251 IE 01 

O.tOUE 00 

0.S279E 

00 

-C.3194S 

03 ... 



0.2I7CE-02 

0.4607E 03 


_ 

. _ 








rpcaiJFNCV pr'iPON'Sr (IP Till' TIICT/ 5MQ THAWSrCP FUNCTION 
STEADY state GAIN 3 0.16C7E-C3 


F <-<<-(}( CP<5> 

AM r» P A T ( f>n ) 

PMA^F f r>fr G ) 

AMP. VALUE 

C . 1C 096 

oc 

-0 • 75 W? 

02 

-C .201 7= 

OC 

0. 1608F-C3 

C . 1 S^E 

or 

-o •7s^e" 

02 

- C . 3 1 76? 

CO 

C. 1 6086-03 

C . I P 

Of> 

-0 • 7S R«p 

02 

-C ,4272* 

00 

C. 1 6C.8F-03 

C. 17POC 

CO 

-0 .7««7E 

02 

-0 • A7BbF* 

00 

0.1 6085-03 

O.^COE 

CO 

-0.7587E 

02 

-C * 563.1c 

00 

i.l 608F-03 

C.2800F 

00 

-0 .T*87E 

02 

-0.7C495 

CO 

0. 1 6 C 85— 03 

o. 1000=: 

CO 

-0 . 7b*7E 

0? 

-C .8466? 

CO 

C . 1 6095-03 

?. 7? 0 "F 

on 

-C . 7f 8 7= 

02 

-C. 98956 

00 

0. 16C9F-C3 

o.*c>"r 

CO 

-C . 7b = 

02 

-0.1103= 

01 

0. 1 41 0?-03 

C .459 ’6 

03 

-0 . 7586E 

02 

-C.1277E 

01 

C, 16115-03 

C . *C 0 3 c 

re 

-C . 7*; 05= 

02 

-9.14215 

Cl 

C. 16125-03 

c • b*n 1 e . 

' S Q 

• 7bB5^ 

02 

-C • l S6 7E 

Cl 

C. 1 61 25-03 

C .6*3 CC 

00 

-0.75846 

32 

-C. 1714c 

01 

C. 161 35-03 

o.f c '0.:e 

on 

-C • 7544* 

02 

-C . i 

01 

0. 1 61 5=— 03 

0 • 7r c 26 

CO 

-C .75935 

C2 

-< .2C1 2-2 

01 

C. 16165-03 

C.7^^0*! 

CO 

-0 . 76535 

C2 

-C.2167- 

01 

C. 1617E-03 

0.80006 

CO 

-3 . 75826 

02 

-C .231 5= 

01 

0.16185-03 


03 

-o • 7 r a i e 

02 

-0.2470? 

01 

C • 1 6205-03 

c .oro if 

CO 

-0 . 7= -ICC 

C2 

-C .2625*: 

Cl 

C. 16215-C3 

3. •■>'■• ■>:•■; 

rO 

- A .7 p ,70 p 

02 

-0 .276.35 

01 

C. 1 6235-03 

C . ICCOF 

01 

- A • 7b 7g: 

02 

-0. ?14 4* 

Cl 

C . 1 62 55-0 3 

C . ! ?"'!C 

01 

-0.75746 

02 

-o.^ocrf 

01 

0.1 6325-03 

a.iGcce 

Cl 

-0 . 7S66~ 

02 

-0.47026 

01 

C. 16485-03 

0. 1 7" 76 

C 1 

-0 • 7540* 

02 

-0.5518? 

01 

C. 1 66 15—03 

0. ’C i* OF 

01 

-0 . 75 4 75 

02 

-0.6032= 

01 

0. 1 608F-03 

*? • *br 

0 1 

-0 .7010= 

02 

- C • 1 0 1 4? 

02 

C. 1 741 F — 03 

o. t:o3e 

Cl 

-0. 74 765 

02 

-C.1571C 

02 

C.l 8285-03 

0. 35096 

01 

-0 .74315 

02 

-0.28635 

02 

C. 1 925E-03 

G •+ r ccv 

C 1 

-0.77606 

02 

-0.6377E 

02 

0. 1 31 85—03 

o.abcos 

Al_ 

-0. 84I5E 

02 . 

. 0,(3215 

00 

0,62025-04 


FP60<BP5 > 

AMP PTIDBI 

PHASFl DFG 1 

AMP • VALUS 

0.500C5 

Cl 

-0 .79.706 

C 2 

0 

.6857E 

01 

0 

1084E-03 

0.5B0C 5 

0 1 

-0 ,77 75E 

02 

C 

.40346 

01 

0 

12956-03 

0 .60005 

0 1 

-0 .7A93E 

02 

0 

.16416 

01 

0 

14? 36 — 0 3 

0.6600 E 

01 

-0 .7636E 

02 

-0 

• 1 9886 

00 

0 

15216-03 

0.700CE 

0 1 

-0 .75876 

02 

-C 

.18006 

01 

0 

16066—03 

0.7B0CE 

01 

-0 .75435 

02 

-e 

. 32816 

01 

0 

16936-03 

0.8090E 

C 1 

-0 .74985 

02 

-0 

.46346 

01 

c 

1781E-03 

0 .859C5 

C 1 

-0 .7453E 

02 

-0 

.60C5E 

01 

0 

18766—03 

0 .9C00F 

0 1 

-0.74C6E 

02 

-0 

.74136 

01 

0 

1982E-03 

0.05005 

01 

-0.7355E 

C 2 

-0 

.89006 

ot 

0 

21016-03 

o . looe 5 

02 

-0 .7300E 

02 

-0 

.10516 

02 

c 

22786-03 

0.12CCE 

02 

-0 .70 226 

02 

-c 

.19536 

C 2 

0 

3085E-03 

0.I50C6 

02 

-0 .63766 

C? 

-0 

.64136 

02 

0 

64675-03 

0.170CE 

02 

-0 .63766 

C 2 

-0 

. 1 2785 

03 

0 

51 54E-07 

0 .20005 

C 2 

-0 .73456 

02 

-0 

. 1592E 

03 

0 

21 25F-C3 

0.25C05 

02 

-0 .80846 

C 2 

-0 

.17136 

03 

0 

90786-04 

0.30005 

C 2 

-0 .d55 1 6 

02 

-c 

. 1 7606 

03 

0 

53046-04 

0. 360C5 

02 

-0 .8900E 

02 

-0 

. 1789E 

03 

0 

3550E-C4 

0.4C0CH 

02 

-o .91 me 

02 

-c 

.18106 

03 

0 

25666-04 

0 .45CC E 

S 2 

-0 .94 1 96 

C 2 

-c 

. 1 e29F 

03 

0 

1951 F- 04 

C .50005 

02 

-P .96 24E 

02 

-0 

.18436 

03 

0 

1*786-04 

0 . 5500 E 

02 

-0 .98105 

02 

-0 

. 1 8566 

03 

0 

1245F-04 

0.600CE 

02 

-0 . 99 755 

02 

-0 

. 1 869E 

03 

0 

l C 296— 04 

0.65906 

02 

-0.10 1 36 

C 3 

-0 

.18816 

03 

0 

86486-05 

0.700CE 

0? 

-0.10 26E 

03 

-0 

. 1 8 9 2E 

03 

0 

7372E-05 

0.75005 

02 

-0.1039E 

03 

-0 

. 1 903E 

03 

0 

635BE-05 

C • 80 COE 

02 

-0.1C51E 

03 

-0 

. 1 VI IE 

03 

0 

55385-05 

0 . 8500 E 

02 

-0.I063E 

03 

-c 

. 192.3E 

03 

0 

48656-05 

0.9000E 

02 

-0.10735 

03 

-0 

• t 9336 

03 

0 

4306E-05 

0.95C05 

02 

-0 *10836 

03 

-o 

.I943E 

03 

0 

38376-05 

0.10005 

03 

-0.10936 

03 

-0 

•19926 

03 

0 

34386-05 





rJt-H.r ~i'«‘ iff' 




CASE N3*. J SAMPLE INPUT OP- VEL*0« 9_Ll£.l_CABLE -CHAP... BOOTS. _0RII9N_ 

front cable hopizontal.be ab cable vertical 

NO SNUBBEBS 

L IF T/’ANTI-LIP t cable in 

feedback logic in 

VINO OFF CHABACTEBISTICS 


CODE NOS. ^OB THIS CASE. 

I 2 3 4 S 6 7 B 9 10 .1112 IS . 14 ... IS IS . . 17 12 19 

I -I C0020930101080000 

OA-A CHANGE 

49 1.0 


20 21 22 23 24 

0 0 0 0 0 


EH. ATT ..oEFLTN.t CABLE TENSION 
THETA * -O.C 0 OEG 

DELTA a 0 .0 _OFG 

FS- CAB. TENSION* 9 . 4 C 67 S 0 E 02 LBS 
pb can. tpnsun m o.tooooce 03 L»S 
♦♦♦♦ LDNG 1 TOO INAL STABILITY ♦♦♦♦ 


POLYNOMIAL 


cr «L 

-C.3IA2E 03 

c.c 

0.1 


« const term fipst 

3.7 3685 AE G6 0.231SS3E 04 0.AS03S7E 05 0.20439SE 03 0.I4I327C 04 

0.444 172F Cl .. 


Imaginary 

♦-0.4492* 01 

♦-o.s«bae 01 


T H/O-Stc 
C. 21 785-02 

o.iooce oa 

0.100 OF 06 


l/T H/D 
0.4S90E 03 
0.0 
0.0 


PER100-SEC 

0.1399E 01 
0.123AE 01 


ONATF-CPS 

0.7IA9E 00 
0.B09IS 00 


UNDNAT-CPS 

0.71A9C 00 
0.S09IE OC 


DAMP PATIO 


OECAV RATIO 


0.0 0. 1000E 01 

0.0 0.1000E 01 




1 4 > ,fc'w "»* • ■ 



<v .r-n ■*. »»*eK.»y I f »• 


k ' * n IfW! VWf^ 





Case no* 4 S*M»*WE JNRWT RORCABLEUESf J*OOEL .»..TW»IW UNCTION flW-ION __ _ 

FRONT CABLE horizontal.rear cable vertical 
NO SNUBBERS 

... NO LIE T/ANTI -LIFT CABLE 

FESOBACK LOGIC NOT IN 
CABLELESS MODEL CHARACTERISTICS 


COOE NOS. FOR THIS CASE. 

I 2 1 . A 9 

t 1 0 0 0 

OAT A CHANGE 

3.BA900 

44/ ,3C 


6 

2 


7 8 9 10 11 

0 3 10 0 0 


IS 13 IA IS IS IT IS I* *0 *» *« »» *• 

0-1 IS 3000000000 



A 

n 

rt 


EH. 4TT..0EFLTN.G CABLE TENSION 
THETA * | .03 OEG 

0!!L T A * -1.33 DEG 

FRT CAB. TENSION* 0.I2799IE 03 LBS 
RP CAB. TCUS ION ■ 0.10021 AS 03 LBS 

...» LONGITUDINAL STABILITY ♦♦♦♦ 

CON OUT AT I ON OF X /DELE NUMERATOR ROOTS 

POLYNOMIAL w CONST TPRM FIRST 


rj'- 4L 
0.3 

A.TJA*,- 3 1 
-C.JS32E 32 
T.TSSO- '2 


n,0 

IMAGINARY 


0.3I9A2IE 0T_ -0.999T74P 08 -0.5SS890E 04.. 0.19882IE 04 


T H/D-SFC 

c.tcrci? oa 

0.2203* 00 
C . 277 IE — 0 1 
0.27C9F-01 

...» L-TrsAL/OIRFCTIONAL STABILITY ♦ »♦♦ 

KiOtH) HAS 4EGN SET BV PbQG TO 3 ^ OP CAQLCU^SS MODEL CHARACTBPfITICS 
The FlLLOMlNG CXTP ACTED ROOT HAVE POOR ACCURACY 


1 /T H/O 

0.0 

0.AS39E 01 
0.3A09E 02 
C.3692E 02 


PERIOD-SEC ONATR-CPS UNDNAT-CRE DAMP RATIO 


DCCAV RATIO 


REAL 


IMAGINARY 


-?.«733A9F-01 0.0 

POLYNOMIAL R CONST T^PM FIRST 


O? AL 

e.“. 

-r ,»s7T'-32 
-C.3»tt: 31 
-C. MI T».; j r 

c .* 


?.3 

0.21711 2E 04 
IMAGINARY 


♦ -C . TR 14* II 


0.0 

0. 3889A9E 03 
T H/O- SEC l/T H/O 

O.IOOOE 08 0*0 

C.2993E 03 C.38S7E-02 

C.17ASE 00 0.9732E 01 

C.8A77S 00 C.II80E 01 

C.ICCC* 06 8.0 


ERROR 

7.89473 IE-02 0.0 

0.2SS2A0E 03 0.998A8IE 09 0.269919E 09 

PERI00-9EC DNATE-CR9 UNDNAT-CP9 


OAMR RATIO 


DECAY RATIO 


U. 80168 00 0 .12478 01 0.I2BAE 01 ••10JBE 00 0.919*8 •• 


o 

r 

i 

•i 





8 




kit 








CA5E.N0* S 




SAMPLf or ACTIVE C Ant r 5VSTE M-LAT DIR MODE 9 TRANS. FUNC. OP. 
FRONT CABLE HOR 1Z0NTAL.REAR CABLE VERTICAL 
NO SNUBBERS 

NO lift/anti-lift cable 
feedback logic in 



CODE NOS. FOB THIS CASE. 

1 2 3 A S fc T n * 9 10 tl 12 13 IA IS IB 17 IS IB >0 ft ft *3 2« 

1 C 0 0 0 2 0 10 10 0.0 0 1 0 Oil f 000 0 0 0 0 

DATA CHANGE 
C 0.0 



EH. ATT.,OEFLTN,t CABLE TENSION 
TH-;ta » X.C3 DEG 
DELTA ■ -1.33 MG 

FOT CAB. TCNSION* D.12T591E 03 LBS 

RR CAB.. TENSION « 7.1002IAC C3 LBS . 

♦ ♦♦♦ L ATERAL /DIRECTIONAL STAS IL I TV ♦♦♦♦ 

COAPTATION of PSI/ EMO NUMERATOR roots 
POLYNOMIAL * CONST TERM FIRST 

-0.3A50CAE OS -0.1799C3E 05 -0.904SSBE OA -0.IS9327E OA -O.fOAASOe 03 


REAL 

IMAGINARY 

T H/D-SEC 

1/T M/O 

RERIOO-SEC 


ONATF-CPS 

unonat-cps 

OAMP PATIO 

DECAY RATIO 

-0 . I 2?D ■ OJ _ 

_j»-0 * 2300 E 0 1 

.0.S6B0E 00 . 

C » 1 76 OS 0| 

0.2629E 01 

0 

•3S0AE00 

0.A27IE 00 

0 .ASA 71 00 

O.AOASE-OI 

-0.1 ARSE 01 

♦-0.37BCE 01 

0.A6A7E 00 

0.21A3E 01 

0.1B7BE 01 

0 

•S9ASE 00 

0.6AI9E 00 

0.3S8EE 00 

0.S303E-0I 







ACTIVE CABLE MQl/A/T SVSTFA4 

VEFIfi/ITlON or PULLEY MOTlOSd . Gu 


Longitudinal Carle Coajtzol 


4 ) ViKetTlONAL CABINS CoNT*OL 


i 




'W’”***'**^ H , ..v-v-tr* '»»'• ..«*•■, W, •»,««< - *•.* *.«t 



>Si t?; , V. ,1,4.4 ^ .-!« ^ <" tjsfc^-y'V'.l -i./ii’A?*. - *' *v m* 1 - ..■oi’fa.i e>,<-*UV*r4 
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ACTIVE CABLE MOUI.T SYSTEM 


G> d) ® © Q (S> (2) (D ($) ® (fd 







Eq. 2 

V - 1 J* - - Hr lT c - 0 


Eq. 3. 

- V- s *-j8£ 4T «' 0 


Eq. U. 

(B a + »L a ) - (J M ‘ 2 + Gs) (S a + 

•L a )V SHjV f. *2 K t ^ - ° 

Eq. 5. 

+ *° 


Eq. 6. 

*. - V *m + \ *m + K r ' 
a is 


Eq. 7. 

i . BY = 0 Eq. 8. Y - 

T n a 

BY • o 

Eq. 9. 

E » E + E 

"TOT B B o 

• 

Eq. 10. 

A T c - ^ T fb 

- 
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